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177776 



. TITLE TSEMT T/S EMT PROCESSOR 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

Copyright (C) 1976, 1977/ 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985. 

S&H Computer Systems, Inc. 
Nashville, Tennessee 

this software is furnished under a license for use only 
on a single computer system and may be copied only with 
the inclusion of the above copyright notice. This 
software, or any other copies thereof, may not be provided 
or otherwise made available to any other person except 
for use on such system and to one who agrees to these 
license terms. title to and ownership of the software 
shall at all times remain with S&H Computer Systems, Inc. 



TSEMT 
PS 



. CSECT TSEMT 
177776 
System macros. 

. MCALL . READW 
MACROS TO ENABLE AND DISABLE INTERRUPTS. 



; PROCESSOR STATUS WORD 



; ENABLE INTERRUPTS 



. MACRO DISABL i DISABLE INTERRUPTS 

BIS #340, S#PS 
. ENDM DISABL 

. MACRO ENABL 

BIC INTPRI,S#PS 

. ENDM ENABL 

Macro to print an error message when a system crash occurs. 

Arguments: 
MSG = Name of error message to print. 
ARG = (Optional) argument value to display with error message. 

. GLOBL DIEMSG, DIEARG, SYSHLT 
.MACRO DIE MSG, ARG 

MSG, €#DIEMSG 

NB, ARG 

ARG, @#DIEARG 



MOV 
. IF 
MOV 

. ENDC 
CALL 
. ENDM 



e#SYSHLT 
DIE 



Macro definition for calling global routines residing in 
mapped system regions. 

. MACRO OCALL ENTADD 
.IF B, ENTADD 
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ERROR ;OCALL SPECIFIED WITH NO ENTRY ADDRESS 
MFYTT 



. ENDC 
CALL 
. WORD 
. ENDM 



OVRHC 
ENTADD 



; CALL THE OVERLAY HANDLER 
i SPECIFY THE ENTRY POINT 



Global definitions 

. GLOBL FREUMR, GETUMR, IOHANQ, CLWTIM, CVTPHY 

. GLOBL TSEMT, IOSTOP, SYGIO, SYBFAD, IOSTRT 

. GLOBL UACHKB, UACHKW, GETS, SETC, ABTIO 

. GLOBL GETSYQ, QIO, PUTUCH, GETUCH, FMMSG, SPLERR 

. GLOBL EMTENT, IOFIN, QFREE, IOTIMR, SETHAN 

. GLOBL IOWAIT, RTLOCK, SWPFRC 

. GLOBL SETERR, EMTXIT, IOHALT, CANIOT 

. GLOBL PTBYT, GTBYT, PTWRD, MPPHY, ERRLOG, RTLOCK 

. GLOBL BADEMT, QCOMPL, FAKCMP, GETRTG, EXTP1, BLKMV 

. GLOBL REBOOT, USREMT, FILSPC, SPSIZE, SPFLDV, SPFLNM 

. GLOBL MIOMRD, MIOMWT, HANXIT, QF*IOT 

. GLOBL READ, WRITE, RELOC 

Global references 

. GLOBL *GEMAR, LSW1 1 , EMTPLS, VPLAS 

. GLOBL TSINIT, CUREMT, HANIOC, DOEMT, C. USED, SSEMT 

. GLOBL VSWPFL, MAPPAR, BASMAP, LOMAP, *MLOCK, SNLOCK 

. GLOBL S*WFM, LSW, SCPGET, SP*JOB, SP*CMD, SASLOK 

. GLOBL *DEAD, EMTLEV, CQ*CP, CP*STD, PRIVCO 

. GLOBL CQ*LNK, CQ*RTN, CQ*PA5, DOSCHD, LCMPL 

. GLOBL CQ*JOB, CQ*RO, CQ*R1, SYSXIT, *NDMEM 

. GLOBL INTPRI, LIOCNT, QHIPRI, NMFREQ, LPRI 

. GLOBL VPAR6, NUMDEV, CSHALC, CP*RT, GF*MIO, GF*CIO 

. GLOBL MEMSWP, PO*LOK, CKUSP2, E375MX, EMT376, RT1 1EX, ODTBAS 

. GLOBL SYTIMH, SYTIML, SYSDAT, CG*FLG, Q. FLAG 

. GLOBL QF*5CR, CG*HOT, CG*LOT, CG*RO, CQ*R1, ITSJOB 

. GLOBL KPAR5, KPAR6, DS*ABT, MRKTHD 

. GLOBL FRKGET, FORKQ, FQ*PR I , FQ*RTN, FQ*R 1 , FQ*R 5, FQ*R3 

. GLOBL EMTBLK, IOQSIZ, CSHIO, DX*NCA, Q. ICSW, Q. UCSW 

. GLOBL CFLAG, ERRLOC, IOCMPL, LPRI, IT*SEQ 

. GLOBL LSW4, *INKMN, VALADW, VALADB, PRIVCO 

. GLOBL CS*ERR, CS*EOF, CS*OPN 

. GLOBL SERFLG 

. GLOBL IOABFL, LSW3 

. GLOBL RPDR 

. GLOBL LSW6, VPRIHI, S*RT, FPSMOV, FP*IOF, FP*IOS, FP*IOA 

. GLOBL EMTMAP, EMTSP, CHNNUM, LJSW, EM*SOF, JSTKND 

. GLOBL CXTEND, LSW4, HANSIZ 

. GLOBL MI*UBP, MI*SBP, MI*UBO, MI*CWC 

. GLOBL Q. DEVX 

. GLOBL INTERR, *INKMN 

. GLOBL CHNADR, EMT ASP, EMTRAD 

. GLOBL CORUSR, UPMODE, LITIME, S*HICP 

. GLOBL BOTUNI, BOTCSR 

. GLOBL UBUSMP, DX*DMA, DVFLAG, UMRBAS, UM*IOQ 

. GLOBL UM*WDS, UM**SZ, UMREND, UMRWHD, Q. UMRX 

. GLOBL Q. UMPB, Q. UMVB, UM*UMR, UMRADR, UM*NMR 
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GLOBL Q. UMPP 

GLOBL ABORT. FMTADR 

GLOBL CXTBAS, DX*MAP, MIOCHK 

GLOBL URO, EMTPS, GSRCH, CHKABT, QNSPND 

GLOBL S*NEDQ, DVSTAT> HANENT, FREIOQ, EMTCXT, EMTCXW 

GLOBL JSWLOC, ENSYS, HANPAR 

GLOBL EMTCXN, UHIMEM 

GLOBL EMTERR, LSTATE, SSIOWT, UMODE 

GLOBL C. CSW, Q. WCNT 

GLOBL C. NUMQ, Q. JOB, Q. LINK, Q. BLKN, G. FUNC 

GLOBL Q. COMP, Q. CHAN, C. DEVQ, Q. UNIT 

GLOBL Q. BUFF, Q. PAR, Q. PA5, C. SBLK, C. LENG, Q. CSW 

GLOBL LBASE, UIOCNT, Q. PA6 

GLOBL LSTPL 

GLOBL ENQTL, FRKPRI 

GLOBL S*IOFN, CQ*PRI, IT*LNK 

GLOBL IT*RTN 

GLOBL CQSRNS 

GLOBL LEMTPC 

GLOBL LMXNUM, RSR, TSR 

GLOBL MXDTR, ZCLR, MXCSR, EM*NQE 

GLOBL LCXPAR, CUPARO 

GLOBL READ, WRITE 

GLOBL TTYIN, TTYOUT 

GLOBL PRINT 

GLOBL OVRHC, VPAR5, EXCJOB, SROMMR, SR3MMR, VCSHNB 
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Ascii characters 



i Carriage return 
; Line feed 
; Bell 



; Argument area for internal USR emts 

; Holds dev: f ile. exttsizeD spec for current erot 

; CsizeH for file specificed above 

; Non-zero ==> Some job waiting for Q element 

;Wait time for CLWAIT routine 

Data areas used for special device <mag tape) directory operations. 
Note: SPFLDV, SPFLNM* and SPSIZE must be allocated contiguously for 
magtape directory operations to work correctly. 

>File spec device name 

;File spec involved in dir operation 

iFile size returned by handler 



CR 


15 


LF 


12 


BELL - 


07 


> Shared data 


areas 


USREMT: . BLKW 


6 


FILSPC: . BLKW 


4 


. WORD 





GWTCNT: . WORD 





CLWTIM: . WORD 


0,60 



SPFLDV: 


. BLKW 1 


SPFLNM: 


. BLKW 4 


SPSIZE: 


. WORD 




. EVEN 


i Text 


messages. 



. NLIST BEX 
Note: FMMSG must begin on a word boundary so that XXXXXX is 
word aligned (MOV instructions replace the form name). 



FMMSG: 
SPLERR: 



. EVEN 
. ASCIZ 
. ASCIZ 
. EVEN 
. LIST 



<CR><!LF><LF><BELL>/ Mount 'XXXXXX' form on YYN/<CRXLF> 
/TSX-W-Error on write to spool file/ 

BEX 
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000156 


000 


6 


000157 


000 


7 


000160 


001 


8 


000161 


000 


9 


000162 


000 


10 


000163 


000 


11 


000164 


000 


12 


000165 


000 


13 


000166 


003 


14 


000167 


003 


15 


000170 


000 


16 






17 






18 






19 






20 


000171 


000 


21 


000172 


000 


22 


000173 


001 


23 


000174 


001 


24 


000175 


375 


25 


000176 


375 


26 


000177 


000 


27 


000200 


000 


28 


000201 


000 


29 


000202 


000 


30 


000203 


000 


31 


000204 


001 


32 


000205 


000 


33 


000206 


000 


34 


000207 


000 


35 


000210 


000 


36 







TABLE FOR VI TYPE EMTS WHICH SHOWS HOW MANY 
ARGUMENTS ARE ON THE STACK. 



V1STK: 



BYTE 





BYTE 





BYTE 


1 


BYTE 





BYTE 





BYTE 





BYTE 





BYTE 





BYTE 


3 


BYTE 


3 


BYTE 






; Table 


for group 


G16STK: 


. BYTE 







. BYTE 







. BYTE 


1 




. BYTE 


1 




BYTE 


-3 




BYTE 


-3 




BYTE 







BYTE 







BYTE 







BYTE 







BYTE 







BYTE 


1 




BYTE 







BYTE 







BYTE 







BYTE 







EVEN 





16 EMT's 





i 000 


DELETE 




; 020 


LOOKUP 




i 040 


ENTER 




; 060 






> 100 


RENAME 




i 120 


SAVE STATUS 




; 140 


REOPEN 




; 160 


CLOSE 




200 


READ 




220 


WRITE 




240 


WAIT 


showing how many argume 




340 


TTYIN 




341 


TTYOUT 




342 


DSTATUS 




343 


FETCH/RELEASE 




344 


CSIGEN 




345 


CSISPC 




346 


LOCK 




347 


UNLOCK 




350 


EXIT 




351 


PRINT 




352 


SRESET 




353 


QSET 




354 


SETTOP 




355 


RCTRLO 




356 


(undefined ) 




357 


HRESET 



on the stack. 



OOOOOOG EMTENT: 

000004 OOOOOOG 

OOOOOOG 

000004 OOOOOOG 

OOOOOOG 

OOOOOOG 

000012 OOOOOOG 
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13 

14 000212 013746 

15 000216 016637 

16 000224 013746 

17 000230 016637 

18 000236 013746 

19 000242 010637 

20 000246 062737 

21 000254 010546 

22 000256 010446 

23 000260 010346 

24 000262 010246 

25 000264 010146 
26 

27 
28 

29 000266 005237 

30 000272 001406 

31 000274 012705 

32 000300 012704 

33 000304 012546 

34 000306 077402 

35 000310 010637 

36 000314 013737 

37 000322 010037 
38 

39 
40 

41 000326 042737 

42 000334 105037 

43 000340 105037 

44 000344 013705 

45 000350 006545 

46 000352 010537 

47 000356 012604 

48 000360 010437 

49 000364 113701 

50 000370 032737 

51 000376 001406 

52 000400 010561 

53 000404 106537 

54 000410 012661 

55 000414 020427 

56 000420 001002 

57 000422 000137 
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SBTTL EMT entry and initial processing 



EMTENT is entered directly from an EMT trap. 

On entry, the processor will be in kernel mode and the stack pointer 

will be pointing to an internal job stack. 

Our initial EMT processing consists of the following steps: 

1. Save registers. 

2. Save current EMT processing context. 

3. Determine if this is a version 1 or version 2 format EMT. 

4. Move arguments for EMT from either users argument area (v2) or 
stack <vl) to internal argument block <EMTBLK). 

5. Jump off to appropriate EMT processing routine. 



SAVE PREVIOUS EMT PROCESSOR STATUS 

SAVE PS ON ENTRY FROM TRAP 

SAVE PREVIOUS EMT PC 

SAVE PC OF TRAP 

SAVE OLD ARGUMENT STACK POINTER 

SET EMTASP TO POINT TO STACK TOP BEFORE EMT 

WAS DONE 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
104341 

OOOOOOG 



1$: 
2*: 



MOV EMTPS, -<SP) 

MOV 4 (SP), EMTPS 

MOV EMT ADR, -<SP> 

MOV 4 < SP ) , EMTADR 

MOV EMTASP, -(SP) 

MOV SP, EMTASP 

ADD #12, EMTASP 

MOV R5, -<SP) 

MOV R4, -<SP) 

MOV R3, -(SP) 

MOV R2, -(SP) 

MOV R1,-(SP) 

If an EMT is already being performed, save EMT processing context. 

INCREMENT EMT PROCESSING LEVEL 

BR IF NO EMT IN PROGRESS 

POINT TO START OF EMT CONTEXT AREA 

GET # WORDS TO SAVE 

SAVE EMT CONTEXT ON STACK 

SAVE FRAME POINTER 
i Save PAR 5 mapping value on EMT entry 
URO HOLDS USER'S RO VALUE 



INC 


EMTLEV i 


BEQ 


2$ ; 


MOV 


#EMTCXT, R5 J 


MOV 


#EMTCXW, R4 ; 


MOV 


(R5)+, -(SP) : 


SOB 


R4, 1* 


MOV 


SP, EMTSP ; 


MOV 


@#KPAR5, EMTMAP > 


MOV 


RO, URO > 



Initialize EMT context status. 



5*: 



BIC 


#CFLAG, EMTPS 


CLRB 


EMTERR 


CLRB 


INTERR 


MOV 


EMTADR, R5 


MFPI 


-(R5) 


MOV 


R 5, EMTADR 


MOV 


(SP)+, R4 


MOV 


R4, CUREMT 


MOVB 


CORUSR.Rl 


BIT 


#UMODE, EMTPS 


BEQ 


5* 


MOV 


R5, LEMTPC(Rl) 


MFPD 


@#JSWLOC 


MOV 


(SP)+, LJSW(Rl) 


CMP 


R4, #104341 


BNE 


6* 


JMP 


TTYOUT 



CLEAR C-FLAG IN PS 

NO I/O ERROR CODE YET 

NO INTERNAL ERROR CODE 

GET ADDRESS SAVED BY EMT TRAP 

GET EMT INSTRUCTION ONTO STACK 

SAVE ADDRESS OF EMT INSTRUCTION 

GET THE EMT INSTRUCTION 

SAVE THE EMT INSTRUCTION 

GET JOB INDEX # 

WAS EMT DONE IN USER MODE? 

BR IF NOT 

SAVE ADDRESS OF LAST USER -MODE EMT 

GET USER'S JSW VALUE 

SAVE IN INTERNAL TABLE 

IS THIS A TTYOUT EMT? 

BR IF NOT 

HANDLE TTYOUT SPECIALLY FOR SPEED 



4 
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58 000426 

59 000432 

60 000434 

61 000440 

62 000444 

63 000446 

64 000452 

65 000460 

66 000462 

67 000466 

68 000470 

69 000474 
70 

71 
72 

73 000500 

74 000504 

75 000510 

76 000512 

77 000516 



020427 
001002 
000137 
020427 
001002 
000137 
032737 
001407 
004737 
103004 
013704 
000137 



012701 
120427 
001505 
120427 
103070 



104351 

0000006 
104340 

OOOOOOG 
OOOOOOG 0000000 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
000375 

000374 



6*: CMP 


R4, #104351 


BNE 


7* 


JMP 


PRINT 


7*: CMP 


R4, #104340 


BNE 


8* 


JMP 


TTYIN 


8*: BIT 


#UMODE, EMTPS 


BEG 


3* 


CALL 


CKUSP2 


BCC 


3* 


MOV 


EMTADR, R4 


JMP 


ABORT 


> 

> Determine 


if this is a ve 


> 

3*: MOV 


#EMTBLK, Rl 


CMPB 


R4, #375 


BEG 


EMT375 


CMPB 


R4, #374 


BHIS 


V2EMT 



IS THIS A . PRINT EMT? 

BR IF NOT 

HANDLE .PRINT SPECIALLY FOR SPEED 

IS THIS A . TTYIN EMT? 

BR IF NOT 

GO PROCESS . TTYIN 

WAS EMT DONE IN USER MODE? 

BR IF NOT 

CHECK VALIDITY OF USER'S SP 

BR IF USER'S SP IS OK 

SET ADDRESS FOR ABORT MESSAGE 

ABORT THE JOB 



;GET ADDRESS OF AREA FOR ARGUMENT LIST 

; Version 2 EMT? 

; Br if yes 

i VERSION 1 OR VERSION 2 FORMAT EMT? 

;BR IF VERSION 2 EMT 



€ 

! 
< 

! I 

< 
i 
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3 








4 








5 


000520 


010405 




6 


000522 


042704 


177760 


7 


000526 


110421 




8 


000530 


042705 


177417 


9 


000534 


072527 


177774 


10 


000540 


110521 




11 


000542 


010021 




12 








13 








14 








15 


000544 


106506 




16 


000546 


012603 




17 


000550 


120527 


000016 


18 


000554 


001015 




19 


000556 


1 1 3702 


0000000 


20 


000562 


116202 


000171 ' 


21 


000566 


002012 




22 








23 








24 


000570 


005402 




25 


000572 


106563 


000004 


26 


000576 


032726 


000001 


27 


000602 


001405 




28 


000604 


005202 




29 


000606 


000403 




30 


000610 


116502 


000156' 


31 


000614 


001514 




32 


000616 


032737 


OOOOOOG 


33 


000624 


001017 




34 








35 








36 








37 








38 


000626 


013703 


OOOOOOG 


39 


000632 


010300 




40 


000634 


012321 




41 


000636 


077202 




42 


000640 


014043 




43 


000642 


020006 




44 


000644 


101375 




45 


000646 


160003 




46 


000650 


060306 




47 


000652 


060337 


0000000 


48 


000656 


060337 


OOOOOOG 


49 


000662 


000471 




50 








51 


000664 


106523 




52 


000666 


012621 




53 


000670 


077203 




54 


000672 


010346 




55 


000674 


106606 




56 


000676 


000463 





Do setup for a 
Convert emt to 



versi on 
version 



format 
format 



EMT. 

and move 



arguments to EMTBLK. 



V1EMT: MOV R4, R5 

BIC # A C17, R4 

MOVB R4, <R1>+ 

BIC # A C360, R5 

ASH #-4, R5 

MOVB R5, (Rl) + 

MOV RO, <R1> + 



GET EMT INSTRUCTION 

ISOLATE CHANNEL NUMBER 

STORE INTO EMTBLK 

LEAVE ONLY FUNCTION CODE 

RIGHT JUSTIFY 

STORE FUNCTION CODE INTO EMTBLK 

USERS RO VALUE GOES AS ARGUMENT 



Move any arguments from user's stack to EMTBLK. 



2* 
1* 
3* 



MFPD 
MOV 
CMPB 
BNE 
MOVB 
MOVB 
BGE 
. CSIGEN & 
Determine 
NEG 
MFPD 
BIT 
BEG. 
INC 
BR 

MOVB 
BEG 
BIT 
BNE 
EMT was e 
This mean 
on entry 
inf ormati 
MOV 
MOV 

6*: MOV 
SOB 

5*: MOV 
CMP 
BHI 
SUB 
ADD 
ADD 
ADD 
BR 

> EMT bias d 

4$: MFPD 
MOV 
SOB 
MOV 
MTPD 
BR 



SP 

<SP>+, R3 

R5, #16 

2* 

EMTBLK, R2 

G16STK<R2>,R2 

1* 
. CSISPC have a va 
how many we have 

R2 

4<R3) 

#1, <SP>+ 

3* 

R2 

3* 

V1STK<R5),R2 

ARGFIN 

#UMODE, EMTPS 

4* 
xecuted in kernel 
s the arguments ar 
to EMT processing, 
on on the stack. 

EMTASP, R3 

R3, RO 

<R3)+, <R1>+ 

R2, 6* 

-<R0), -(R3) 

RO, SP 

5* 

RO, R3 

R3, SP 

R3, EMTSP 

R3, EMTASP 

ARGFIN 
one in user mode. 

(R3) + 

(SP)+, <R1)+ 

R2, 4* 

R3, -<SP) 

SP 

ARGFIN 



;GET USER'S SP 

; INTO R3 

i IS THIS A GROUP 16 EMT? 

;BR IF NOT 

;GET SUB-FUNCTION CODE <CHANNEL #) 

;GET # ARGUMENTS ON STACK 

;BR IF NOT . CSIxxx 
riable number of arguments <3 or 4). 
this call. 

;GET 3 AS # ARGS 

i GET 3RD ARGUMENT ON STACK 

; IS THERE A 4TH ARGUMENT? 

;BR IF NOT 

; SET 4 AS # ARGUMENTS 

;GET # ARGUMENTS ON STACK 

iBR IF NO ARGUMENTS ON STACK 

; WAS EMT DONE IN USER OR KERNEL MODE? 

i BR IF IN USER MODE 
mode, 
e under all the saved information we pushed 

Pop the arguments and move down the saved 

; GET POINTER TO ARGUMENTS ON STACK 



MOVE AND ARGUMENT FROM STACK TO EMTBLK 

MOVE ALL ARGUMENTS FOR EMT 

MOVE DOWN OTHER INFO ON STACK OVER ARG AREA 



GET # BYTES STACK WAS REDUCED 
CORRECT SP 

CORRECT FRAME POINTER 
CORRECT ARGUMENT POINTER 



This means arguments are on user-mode stack, 
i MOVE ARGUMENT FROM USER 'S STACK TO OUR STACK 
; MOVE HIS ARGUMENT TO OUR ARGUMENT AREA 
; GET ALL OF HIS ARGUMENTS 
; NOW RESET HIS STACK POINTER 



i 
\ 



< 

4 

I 
4 



21 
22 



TSEMT T/S EMT PROCESSOR 

EMT entry and initial processing 

1 

2 

3 

4 000700 001004 

5 

6 

7 

8 000702 062700 OOOOOOC 

9 000706 
10 000710 
11 

12 
13 

14 000712 120427 000376 

15 000716 103402 

16 000720 000137 OOOOOOG 
17 

18 
19 
20 000724 032700 000001 

000730 001003 

000732 020037 OOOOOOG 

23 000736 101402 

24 000740 004737 005520' 
25 
26 
27 

28 000744 113702 OOOOOOG 

29 000750 052762 OOOOOOG 

30 000756 

31 000760 

32 000762 
33 
34 
35 

36 000764 020527 040000 

37 000770 103402 

38 000772 062705 OOOOOOC 

39 000776 010521 
40 
41 
42 

43 001000 

44 001004 

45 001006 

46 001010 

47 001012 

48 001020 
49 
50 
51 

52 001022 

53 001030 

54 001032 000137 OOOOOOG 

55 001036 123727 000001G 

56 001044 
57 



062700 
010021 
000456 



1 1 3702 
052762 
010003 
106523 
012605 



012700 
106523 
012621 
077003 
042762 
010201 



123727 
001002 
000137 
123727 
001402 
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Do setup for a version 2 format EMT. 

V2EMT: BNE 1* ; BR IF NOT EMT 374 

> 

i This is an EMT 374. <R0 Contains function-code* channel). 






ADD #E375MX*400, RO 
MOV RO, <R1) + 
BR ARGFIN 



BIAS FUNCTION CODE 

RO HAS FUNCTION CODE AND CHANNEL 

THERE ARE NO OTHER ARGS FOR THIS TYPE EMT 



This is an EMT 375. <R0 points to user's argument list). 



1*: 



CMPB 

BLO 

JMP 



R4, #376 

EMT375 

EMT376 



MAKE SURE THIS REALLY IS AN EMT 375 
BR IF IT IS 375 
BR IF 376 OR 377 



Validate the address of the argument block 



EMT375: BIT 
BNE 
CMP 
BLOS 

1*: CALL 



#li RO 

1* 

RO, UHIMEM 

5* 

VALADW 



> Is address even? 

;Br if not 

; Is address in normal job area7 

i Br if yes 

iMAKE SURE EMT ARG BLOCK ADDRESS IS VALID 



Get 1st word from EMT argument block 

5*: MOVB CORUSR, R2 ; Get job index number 

OOOOOOG BIS #*GEMAR,LSWlKR2);Set flag saying to return O on MFPD trap 

MOV RO, R3 iGET ADDRESS OF USER'S ARGUMENT BLOCK 

MFPD (R3)+ ;GET USER'S FUNCTION CODE AND CHANNEL 

MOV <SP)+, R5 

Determine if this is an RT-il or TSX system function 

CMP R5, #100*400 } TSX EMT? 

BLO 2* ; BR IF NOT 

ADD #«RT11EX-100>*400>, R5 i BIAS FUNCTION CODE 

2*: MOV R5, <R1)+ ; STORE FUNCTION CODE & CHANNEL # IN EMTBLK 

Move arguments from user's argument area to EMTBLK. 



000006 



3*: 



MOV 


#6, RO i 


MFPD 


<R3) + ; 


MOV 


(SP)+, <R1)+ ; 


SOB 


RO, 3* 



OOOOOOG OOOOOOG 



00000 1G 000043G 



000036 4*. 



Get # words to move 
GET AN ARG WORD FROM USER'S AREA 
MOVE INTO EMTBLK 
RO, 3* 

BIC #*GEMAR, LSW1KR2); Clear flag that says we are getting args 

MOV R2, Rl i Carry job index in Rl 

Do fast check for shared run-time mapping 

CMPB EMTBLK+l,#<143+<RTllEX-100»i Shared run-time mapping? 

BNE 4* i Br if not 

JMP SSEMT i Go do shared run-time mapping 

CMPB EMTBLK+1,#36 ; PLAS EMT? 

BEG. DOPLAS iBr if PLAS EMT 



t 
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EMT entry and initial processing 



58 

59 

60 001046 000137 0000000 

61 

62 

63 

64 001052 005737 OOOOOOG 

65 001056 001402 

66 001060 000137 OOOOOOG 

67 001064 012700 000007 
6B 001070 005037 OOOOOOG 
69 001074 000137 004036' 
70 

71 
72 
73 

74 001100 012700 177767 

75 001104 000137 004036' 



Jump into TSEM2 overlay to complete EMT processing 



ARGFIN: 


JMP 


DOEMT 


J PLAS 


EMT 




DOPLAS: 


TST 


VPLAS 




BEQ 


9* 




JMP 


EMTPLS 


9*: 


MOV 


#7, RO 




CLR 


URO 




JMP 


SETERR 



; Enter TSEM2 to complete processing 



»Was PLAS genned into system? 

i Br if not 

; Enter TSPLAS overlay 

/Return error code 

i Return in RO 



Invalid EMT 

BADEMT: MOV 
JMP 



#-11, RO 
SETERR 



; ERROR CODE # 



i 

< 
< 

< 
i 
4 
€ 

( 
i 
i 
4 

i 
i 
i 

i 



i 



1 



TSEMT 
EMTXIT 
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— Exit from EMT processing 



i 
p 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL EMTXIT 



Exit from EMT processing 



EMTXIT is jumped to at the end of processing of an EMT. 
Control is returned to the user. 

Check to make sure the job context block stack did not overflow. 



001110 023727 0000006 123456 EMTXIT: CMP 
001116 001410 BEQ 

001120 DIE 



JSTKND, #123456 

6* 

#EM*SOF, #3 



CHECK FOR FIXED VALUE AT END OF STACK 

BR IF OK 

STACK OVERFLOW — HALT SYSTEM 



If the EMT was executed in user mode* make sure 
previous-mode = user in the current PSW. 



001140 032737 0000000 OOOOOOG 6*: 

001146 001403 

001150 052737 OOOOOOG 177776 



BIT 


#UMODE, EMTPS 


BEQ 


7* 


BIS 


#UPMODE, @#PS 



; Was EMT executed in user mode?" 

; Br if not 

;Make sure previous-mode = user in PSW 



See if an internal error code was specified. 



001156 105737 OOOOOOG 

001162 001403 

001164 113737 OOOOOOG OOOOOOG 



7*: 



TSTB INTERR 

BEQ 1$ 

MOVB INTERR, EMTERR 

Return I/O error code to user. 



ANY INTERNAL ERROR CODE? 

BR IF NOT 

SET AS REAL ERROR CODE 



001172 106537 OOOOOOG 1*: 

001176 113716 OOOOOOG 

001202 001403 

001204 052737 OOOOOOG OOOOOOG 

001212 106637 OOOOOOG 2*: 



001216 013700 OOOOOOG 



001222 013737 OOOOOOG OOOOOOG 



001230 013706 OOOOOOG 

001234 005337 OOOOOOG 

001240 002406 

001242 012705 OOOOOOG 

001246 012704 OOOOOOG 

001252 012645 4*: 

001254 077402 



MFPD 


@#ERRLOC 


MOVB 


EMTERR, (SP> 


BEQ 


2* 


BIS 


#CFLAG, EMTPS 


MTPD 


©#ERRLOC 



GET CONTENTS OF ERROR CELL 

PUT EMT ERROR CODE IN LOW-ORDER BYTE 

BR IF THERE WAS NO ERROR 

SET C-FLAG IN PS 

RESET ERROR CELL 

Return value to user in RO. 

MOV URO, RO > GET VALUE TO BE RETURNED IN RO 

Restore mapping for kernel PAR 5 region 

MOV EMTMAP> @#KPAR5 > Restore mapping for kernel PAR 5 region 

Restore EMT context. 

RESTORE FRAME POINTER 
DID WE PUSH CONTEXT INFORMATION? 
BR IF NOT 

POINT TO END OF CONTEXT AREA 
GET # WORDS TO RESTORE 
RESTORE EMT CONTEXT 
* 

Restore registers 



MOV 


EMTSP, SP 


DEC 


EMTLEV 


BLT 


3* 


MOV 


#EMTCXN, R5 


MOV 


#EMTCXW, R4 


MOV 


(SP)+,-<R5> 


SOB 


R4, 4* 



001256 012601 

001260 012602 

001262 012603 

001264 012604 

001266 012605 



3*: 



MOV 


<SP)+> 


Rl 


MOV 


(SP)+> 


R2 


MOV 


(SP)+» 


R3 


MOV 


<SP)+, 


R4 


MOV 


<SP>+, 


R5 



TSEMT 
EMTXIT 
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— Exit from EMT processing 



« 

€ 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



001270 012637 OOOOOOG 



001274 013766 OOOOOOG 000006 



001302 012637 OOOOOOG 
001306 012637 OOOOOOG 



001312 005737 OOOOOOG 

001316 001407 

001320 013716 OOOOOOG 

001324 012766 OOOOOOG 000002 

001332 005037 OOOOOOG 



001336 000137 OOOOOOG 



Restore stack araument oointer 



; POINTS TO WHERE ARGUMENTS WERE ON STACK 



i PUT PS ON STACK 



> 
5* 



MOV <SP>+, EMTASP 
Set PS for return 

MOV EMTPS, 6 < SP ) 

Restore EMTPS & EMTADR. 

MOV (SP)+, EMTADR 
MOV (SP)+, EMTPS 

At this point the PS & PC pushed as a result of the EMT are the only 

things on the stack. 

See if a . SPCPS EMT was done that wants to alter return from the EMT. 

TST EMTRAD i DO WE WANT TO ALTER EMT EXIT ADDRESS? 

BEG 5* J BR IF NOT 

Force control away from completion routine. 

MOV EMTRAD, (SP) ; SET NEW PC FOR EXIT 
MOV #UPMODE, 2<SP> ; SET NEW PS FOR EXIT 
CLR EMTRAD > SAY WE HAVE FINISHED THE REQUEST 

Exit throuth INTEN code. 

JMP SYSXIT iEXIT FROM SYSTEM STATE 



M 



4 

4 

i 
< 

< 

,< 
4 

< 

4 

4 

4 

< 
I 

4 

i 

i < 

» 
, 4 

I 

4 
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REBOOT — Kmon EMT to reboot the system 



3 
4 
5 

6 001342 

7 001350 

8 001356 
9 

10 
11 

12 001364 

13 001370 

14 001376 

15 001400 

16 001404 

17 001406 

18 001412 

19 001416 

20 001420 

21 001424 

22 001432 

23 001436 
24 

25 
26 

27 001440 

28 001446 

29 001452 
30 

31 
32 

33 001456 

34 001464 

35 001472 

36 001474 

37 001502 

38 001510 

39 001546 

40 001554 

41 001560 
42 

43 
44 
45 

46 001564 

47 001570 

48 001574 

49 001576 

50 001600 
51 

52 
53 

54 001602 

55 001606 
56 

57 



012777 
013737 



012705 
032765 
001015 
016504 
001005 
005075 
005075 
000405 
105074 
052774 
162705 
003354 



1 1 3737 
005037 
013705 



013737 
013737 
000005 
013737 
013737 



013700 
013701 
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SBTTL REBOOT — Kmon EMT to reboot the system 



Reboot the system. 

Word 2 of EMT arg block contains address of start of bootstrap code. 



000002 000100' 
000100 000004 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
000002 



REBOOT: DISABL 

MOV #2, eioo 
MOV @#100 J @#4 

Disable time-sharing lines 



7*: 



4*: 
6*: 



MOV 


#LSTPL, R5 


BIT 


#*DEAD, LSW3<R5> 


BNE 


6$ 


MOV 


LMXNUM<R5),R4 


BNE 


4* 


CLR 


SRSR(R5) 


CLR 


@TSR(R5) 


BR 


6* 


CLRB 


@MXDTR<R4> 


BIS 


#ZCLR, @MXCSR(R4> 


SUB 


#2, R5 


BGT 


7* 



j ## DISABLE #* 

; DISABLE CLOCK PROCESSING 

; Ignore non-existent traps 



GET # OF LAST PRIMARY LINE 

IS THIS LINE INSTALLED? 

BR IF NOT INSTALLED - CONTINUE TO NEXT LINE 

IS THIS A DL-11 OR DZ-11 LINE? 

BR IF DZ-11 LINE 

STOP RECEIVER 

STOP TRANSMITTER 

CONTINUE TO NEXT LINE 

CLEAR DZ-11 DATA TERMINAL READY 

CLEAR DZ-11 CONTROL STATUS REGISTER 

GO STOP NEXT LINE 



Disable the generalized cache and the scheduler. 



OOOOOOG OOOOOOG 

OOOOOOG 

000004G 



OOOOOOG 000014' 
OOOOOOG 00O016' 

000014' OOOOOOG 
000016' OOOOOOG 



OOOOOOG 
OOOOOOG 



MOVB CORUSR, EXCJOB 
CLR @#VCSHNB 
MOV EMTBLK+4, R5 



» Say we are the exclusive job 

; Disable each ing 

;GET THE ADDRESS OF THE BOOTSTRAP CODE 



OOOOOOG 
002400 



012702 
012703 
106525 
012622 
077303 



005037 OOOOOOG 
005037 OOOOOOG 



8$: 



Reset system and issue read to set unit number in controller. 

MOV @#SROMMR, FILSPC > Save MMU status 

MOV @#SR3MMR, FILSPC+2; Save MMU 3 status 

RESET i Issue bus reset 

MOV FILSPC, S#SROMMR ; Restore MMU status 

MOV FILSPC+2, @#SR3MMRj Restore MMU 3 status 

. READW #USREMT, #1,#SPFLNM, #1* #0i Read from boot device 

DISABL {Disable interrupts 

MOV BOTUNI/RO > Get boot device unit number 

MOV B0TCSR.R1 /Get boot CSR address 

Move the bootstrap code from the user's region into kernal mapping. 



COPY BOOTSTRAP INTO KERNEL MAPPING 

MOVE 5 BLOCKS OF CODE 

GET THE NEXT WORD 

STORE IT OVER TSINIT 

CONTINUE UNTIL PRIMARY & SECONDARY CODE MOVED 



MOV 


#TSINIT> R2 


MOV 


#256. *5, R3 


MFPD 


(R5) + 


MOV 


<SP)+, (R2) 


SOB 


R3, 8* 



Clear memory management registers. 



CLR 
CLR 



SROMMR 
SR3MMR 



; Clear MMU status 
i Clear MMU 1 status 



Set up date and time words. 



4 

4 

4 

4 
4 
4 
4 
( 
4 
I 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



4 
\ 


TSEMT 


T/S EMT 


PROCESSOR 


MACRO V0= 




REBOOT - 


— Kmon 


EMT to reboot the system 




58 








\ 




59 


001612 


013737 


OOOOOOG 


005004 




60 


001620 


013737 


ooooooe 


005000 




61 


001626 


013737 


OOOOOOG 


005002 




62 












63 












64 












65 


001634 


012702 


OOOOOOG 






66 


001640 


005005 








67 


001642 


012703 


002400 






68 


001646 


012225 




1 




69 


001650 


077302 








70 












71 












72 












73 


001652 


005037 


000000 






74 


001656 


010037 


004722 






75 


001662 


012706 


010000 






[ 76 


001666 


012703 


001000 






77 












78 












79 












' 80 


001672 


000113 







f 

I 

4 
4 



Friday 



MOV 
MOV 
MOV 
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SYSDAT. £#5004 
SYTIMH, £#5000 
SYTIML, £#5002 



DATE 

TIME - HIGH ORDER 

TIME - LOW ORDER 



Copy bootstrap to low memory (0 - 4777) 



10*: 



MOV 


#TSINIT, R2 


CLR 


R5 


MOV 


#256. *5, R3 


MOV 


<R2>+, <R5> + 


SOB 


R3, 10* 



Set up for bootstrap. 





CLR 


£#0 




MOV 


RO, £#4722 




MOV 


#10000, SP 




MOV 


#1000, R3 


Jump 


into 


bootstrap 




JMP 


£R3 



; Point to copy of bootstrap 

> Move to physical location zero 

; Move 5 blocks of code 

; Move to low memory 

; Continue until all is moved 



SAY DATE & TIME ARE STORED IN MEMORY 
SET THE CORRECT BOOTSTRAP UNIT NUMBER 
SET STACK POINTER FOR BOOTSTRAP 
Point to bootstrap code 



J ENTER BOOTSTRAP CODE 



4 

4 

4 
« 
4 
I 

i 

« 
4 
< 
4 

4 

I 

< 
4 

4 
4 
i 



( 



i 
i 

« 

< 
i 

j« 
« 

< 

I 

i 

I 

!< 

>< 

i < 

i 

i« 

i 

i 
i 



TSEMT T/S EMT PROCESSOR 
RTLOCK — EMT to lock a job 



1 
2 
3 
4 
5 

6 001674 

7 001702 

8 001704 

9 001706 
10 001712 

001716 



xn 



MACRO V05. 04 
low memory 
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11 

12 

13 

14 

15 001720 

16 

17 

18 

19 001726 

20 001732 

21 001736 

22 001742 

23 001744 

24 001746 

25 001750 

26 001752 

27 001760 
28 

29 
30 
31 

32 001762 

33 001770 

34 001774 

35 002002 

36 002006 

37 002012 

38 002016 

39 002020 
40 

41 
42 
43 

44 002024 

45 002030 

46 002034 
47 

48 
49 
50 

51 002042 

52 002046 

53 002052 

54 002056 

55 002064 

56 002066 
57 



032737 
001003 
005000 
000137 
105737 
001465 



016102 
063702 
020237 
101453 
1 1 4200 
001405 
002772 
032760 
001366 



052761 
005237 
052761 
013702 
163702 
016100 
160200 
004737 



OOOOOOG OOOOOOG 



004036 ' 
OOOOOOG 



RTLOCK: BIT 




#PO*LO 


BNE 




3* 


CLR 




RO 


JMP 




SETERR 


3$: TSTB 




VSWPFL 


BEG. 




8* 


i Map PAR 5 


to 


the me 



013737 OOOOOOG OOOOOOG 



004737 
110165 
112765 



012700 
004737 
004737 
032761 
001766 
000137 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



MOV 


LBASE(Rl), R2 


ADD 


BASMAP, R2 


CMP 


R2, LOMAP 


BLOS 


8* 


MOVB 


-<R2),R0 


BEG 


2* 


BLT 


1$ 


BIT 


#*MLOCK, LSW6(R0> 


BNE 


1* 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

002104' 



OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

001110' 



. SBTTL RTLOCK — EMT to lock a job in low memory 

The RTLOCK emt is used to lock a job in memory. The job is moved 
to the low end of user memory space before being locked. 

#PO*LOK> PRIVCO i Are we allowed to lock job in memory? 

» Br if yes 
i Return error code O 

» Is this a no swap system? 

; Br if yes - don't change memory allocation 



MOV MAPPAR, @#KPAR5 ; Map PAR 5 to memory management table 

See if job is at base of memory now 

Get base page # for job 
Get address of base page entry for job 
1*: CMP R2, LOMAP ; Are we at base of memory 

Br if yes — don't need to reposition job 

Get # of job using this page 

Br if page is free 

Br if page is not available to jobs 

Is this job locked in memory? 

Br if yes 

Job is not at base of memory. 

Use the job swapper to reposition it. 

2$: BIS #*NDMEMi LSW(R1 ) ; Set flag saying we need to be swapped 

INC MEMSWP ;Tell swapper to do outswap 

BIS #*NLOCK, LSW6<R1)j Set flag saying job needs to be locked in mem 

MOV LOMAP, R2 ; Get lowest page # in use by user jobs 

SUB BASMAP, R2 i Convert to a page # 

MOV LBASE<R1)»R0 ; Get base page # of our job 

SUB R2> RO ; Get # pages to be swept 

CALL SWPFRC i Outswap jobs in the memory area 

Now generate a swap command packet to cause our job to be 
locked in memory. 

CALL SCPGET > Get a swap command packet 

MOVB R1,SP*J0B<R5> ; Set our job number 

MOVB #SA*LOK, SP*CMD<R5) ; Set 1 oc k-in-memory command 

; Now suspend execution of our job until it is repositioned and locked 

; in memory. 

i 

5*: MOV #S*WFMi RO ; State = waiting for memory expansion 

CALL QNSPND ; Suspend job and do swapping to move job 

CALL CHKABT ; See if we were aborted while asleep 

BIT #*MLOCK, LSW6<R1)j Is locking finished? 

BEG 5* ;Br if not 

JMP EMTXIT > Finished 



I 

I 

« 
< 
< 
« 
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RTLOCK — EMT to lock a job in low memory 

58 > Freeze job in current memory position 

59 : 

60 002072 052761 000000G OOOOOOG 8*: BIS #*MLOCK, LSW6<R1 ); Lock job in memory 

61 002100 000137 001110' JMP EMTXIT ; Finished 



< 

€ 



> 



€ 

i 

4 



Map PAR 5 to the memory map table 
002U4 013737 OOOOOOG OOOOOOG MOV MAPPAR, ©#KPAR5 ; Map PAR 5 to memory allocation table 

i Sweep through allocation table looking for jobs to outswap 



TSEMT T/S EMT PROCESSOR 
SWPFRC — Force outswap of jobs 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 002104 010146 

12 002106 010246 

13 002110 013746 OOOOOOG 
14 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 

40 002166 012637 OOOOOOG 

41 002172 012602 

42 002174 012601 

43 002176 000207 
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in certain memory range 



SBTTL SWPFRC 



Force outswap of jobs in certain memory range 



SWPFRC is called to force the outswap of all jobs that are occuping 
a certain range of memory. The jobs are outswapped and then 
placed in an executable state. 



Inputs: 
R2 = Lowest page # of region to be cleaned out. 
RO = Number of 512-byte pages in region. 



SWPFRC: MOV 
MOV 
MOV 



R1,-<SP) 
R2, -<SP) 
@#KPAR5, -<SP) 



002122 
002126 
002130 
002132 
002140 
002142 
002150 



002152 
002160 



063702 
112201 
003415 
032761 
001011 
032761 
001005 



052761 
005237 



OOOOOOG 

OOOOOOG 
OOOOOOG 



1*: 



OOOOOOG 
OOOOOOG 



ADD 


BASMAP, R2 


MOVB 


(R2)+, Rl 


BLE 


2$ 


BIT 


#*NDMEM, LSW<R1) 


BNE 


2* 


BIT 


#*MLOCK, LSW6<R1) 


BNE 


2* 



Point to 1st entry in map table 

Get info about who is using this page 

Br if page free or in use by system 

Is job already flagged for outswap? 

Br if yes 

Is job locked in memory? 

Br if yes 



We found a job that needs to be flagged for outswap 



OOOOOOG 
OOOOOOG 



OOOOOOG 



BIS 
INC 



#*NDMEM, LSW<R1) ;Flag job for outswapping 



002164 077020 



MEMSWP 
Check rest of memory region 
2*: SOB RO, 1* 
Finished 



MOV 


(SP)+, @#KPAR5 


MOV 


(SP)+,R2 


MOV 


(SP)+, Rl 


RETURN 





i Remember another job to outswap 



; Loop if more of region to check 



; Restore PAR 5 mapping 



TSEMT 
QIC! 



T/S EMT 
— Queue 

1 
2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 002200 
13 
14 
15 

16 002206 

17 002210 

ie 

19 
20 

21 002214 

22 002220 

23 002222 

24 002226 

25 002230 

26 002236 

27 002242 

28 002246 

29 002252 

30 002254 

31 002256 

32 002262 

33 002270 
34 

35 

36 

37 

38 002274 

39 

40 

41 

42 002300 

43 002304 

44 002306 
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an I/O request 



SBTTL QIO 



— Queue an I/O request 



QIO is called to add an I/O request to the list of waiting 
requests for a device. If the device is idle it is started. 



Inputs: 

Rl = Address of I/O queue entry. 



Entry point for system I/O requests. 
013761 000000© 0000008 SYQIO: MOV @#KPAR5>Q. PAS <R1>; Save PAR 5 mapping 

Entry point for normal job I/O requests 



010246 
013746 



016102 
001412 
020227 
103405 
016137 
062702 
105262 
116100 
001410 
006300 
105260 
116160 
005237 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 00000 1G 
OOOOOOG 



QIO: MOV R2, -<SP) 

MOV @#KPAR5, -<SP> 

Increment I/O counters. 



3*: 
1*: 



MOV 

BEQ 

CMP 

BLO 

MOV 

ADD 

INCB 

MOVB 

BEQ 

ASL 

INCB 

MOVB 

INC 



Q. UCSW<R1),R2 

1* 

R2, #CXTBAS 

3* 



» Address of user's channel block 

; Br if no channel block 

; Is channel in job context block? 

; Br if not 

Q. PA6<R1)» S#KPAR5 ; Map par 5 to loc where context blk is 
#<VPAR5~CXTBAS>» R2> Get address of mapped channel block 
C. NUMQ<R2) > Increment # I/O requests active on channel 
Q. J0B<R1>,R0 ;Get job # 
2* i Br if system doing I/O 

RO {Convert to job index number 

LIOCNT<RO) ; Inc # I/O requests active for this job 
Q. DEVX<R1),LI0CNT+1(R0) ; Save index # of last dev job accessed 
UIOCNT > Count total # of active user I/O operations 



Call IOSTRT to add I/O queue request to list for handler and 
start the I/O. 



004737 002310 



2$: CALL 
Finished 



IOSTRT 



Add queue entry to handler and start I/O 



012637 
012602 
000207 



OOOOOOG 



MOV <SP>+, @#KPAR5 
MOV <SP>+, R2 
RETURN 



TSEMT 
IOSTRT - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Try to start I/O transfer 



. SBTTL IOSTRT 



Try to start I/O transfer 



IOSTRT is called to initiate an I/O operation. 
It performs the following operations: 

1. Allocate a Unibus Map Register (UMR) if I/O operation is being 
directed to a DMA device. 

2. Move data from user's buffer to system buffer if this is an 
I/O to a device that requires system buffer mapping. 

3. Put I/O queue entry on list for device handler. 

4. Initiate device operation if it is idle. 



Inputs: 
Rl = Address of I/O queue entry. 



002310 010246 
002312 010446 



002314 116102 OOOOOOG 
002320 001004 



002322 010104 

002324 004737 003032 ' 

002330 000427 



002332 032762 OOOOOOG OOOOOOG 2*: 

002340 001006 

002342 005737 OOOOOOG 

002346 001403 

002350 004777 OOOOOOG 

002354 103415 



002356 032762 OOOOOOG OOOOOOG 4*. 

002364 001404 

002366 

002374 103405 



IOSTRT: MOV 
MOV 



R2, -<SP) 
R4, -<SP) 



Get index number of device this I/O operation is directed to. 



MOVB Q. DEVX<R1)>R2 
BNE 2* 



iGET DEVICE INDEX NUMBER 
;BR IF I/O TO REAL DEVICE 



MOV 


R1,R4 


CALL 


IOCMPL 


BR 


QIOFIN 



If device index number is zero, call IOCMPL to indicate I/O is finished 

;GET I/O QUEUE ELEMENT ADDRESS TO R4 

i Do I/O completion processing 

;WE ARE FINISHED WITH I/O OPERATION 

See if we are doing caching for this device 

BIT #DX*NCA, DVFLAG<R2>; Is this device eligible for caching? 

BNE 4* ;Br if not 

TST CSHALC i Is data caching genned into system? 

BEG. 4* } Br if not 

CALL SCSHIO > See if doing data caching for this device 

BCS QIOFIN » Br if caching took over the operation 

See if we need to do system buffering for this I/O operation 

BIT #DX*MAP, DVFLAG<R2); Does this device require buffer mapping? 

BEQ 3* ;Br if not 

OCALL MIOCHK i See if this particular operation needs maping 

BCS QIOFIN ; Br if I/O mapping is being done 

See if we need to allocate a Unibus map register set for this operation 



002376 004737 004470 
002402 103402 



002404 004737 002416' 



002410 012604 
002412 012602 



3$: 



CALL 
BCS 



GETUMR 
QIOFIN 



;SEE IF WE NEED TO ALLOCATE A UMR 

;BR IF NO FREE UMR — DEFER STARTING OPERATION 



Place queue element on list for device handler 

CALL IOHANQ > Place queue element on list for handler 

Finished 



QIOFIN: MOV 
MOV 



<SP)+, R4 
(SP>+, R2 



TSEMT TVS EMT PROCESSOR MACRO V05. 04 Friday 22-Jan-88 14:46 Page 12-1 
IOSTRT — Try to start I/O transfer 

58 002414 000207 RETURN 



TSEMT 
IOHANQ - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



T/S EMT 
-- Place 
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I/O queue request on handler list 



002416 
002420 
002422 
002424 
002426 
002430 



002434 
002440 



002444 
002450 
002452 
002456 



002462 
002466 



002472 
002500 
002502 



010146 
010246 
010346 
010446 
010546 
013746 



116102 
005262 



OOOOOOG 



OOOOOOG 
0000000 



016200 OOOOOOG 

001402 

010037 OOOOOOG 

016202 OOOOOOG 



005061 
062701 



OOOOOOG 
OOOOOOG 



011200 
001407 



002504 
002510 
002512 
002520 



010160 OOOOOOC 
010112 

000413 



002522 
002524 
002526 



010122 
010122 



. SBTTL IOHANQ 



Place I/O queue request on handler list 



Place an I/O queue request on the list of pending requests for a device 
handler and enter the handler front-end if the handler is currently 
idle. 



Inputs: 
Rl = Address of I/O queue entry 



IOHANQ: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R2, -<SP) 
R3, -(SP> 
R4, -<SP> 
R5, -<SP> 
@#KPAR5, -<SP) 



; Preserve system PAR 5 mappint 
Increment count of uncompleted I/O operations for this device 



MOVB Q. DEVX<R1),R2 
INC HANI0C<R2) 



;Get device index number 

; Say another I/O operation started for dev 



Get address of device handler and set up PAR 5 if this is a mapped handler 



5*: 



MOV HANPARCR2), RO 

BEQ 5* 

MOV RO, @#KPAR5 

MOV HANENT<R2),R2 



j Is this a mapped handler? 
; Br if not 

i Map kernel PAR 5 to handler 
i R2 — > 4th word of handler 



Make Rl point to 3rd word of queue element (as handler wants it). 



CLR Q. LINK(Rl) 
ADD #Q. BLKN, Rl 



; SAY QUEUE ELEMENT WILL BE AT END OF CHAIN 
;MAKE Rl POINT TO 3RD WORD OF QUEUE ELEMENT 



Add new queue element to list of requests for this device. 



DISABL 

MOV 

BEQ 



<R2), RO 
1* 



; * DISABLE 

i* ADDRESS OF LAST Q ELEMENT IN LIST 

;* BR IF HANDLER IS IDLE NOW 



Handler is active. 

Just add our queue element to its list. 



MOV 
MOV 
ENABL 
BR 



R1,Q. LINK-Q. BLKN(RO); * SET FORWARD LINK TO POINT TO US 

Rl, <R2> ;* STORE OUR Q ELEM ADDR INTO LQE IN HANDLER 

9* 



Handler is idle. 

Put queue entry into its list and start it. 



1*: 



MOV 


Rl, (R2) + 


MOV 


Ri, (R2) + 


ENABL 





; * STORE Q POINTER INTO HANDLER LQE 
; * STORE Q POINTER INTO HANDLER CQE 



Enter system state so that we will be running on interrupt stack. 

We do this so the handler front-end can remap kernel PAR6 if it wants to. 
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IOHANQ — Place I/O queue request on handler list 



< 



58 002534 

59 002540 

60 002544 
61 

62 

63 

64 

65 

66 002546 

67 

68 

69 

70 002550 

71 002554 

72 002556 

73 002560 

74 002562 

75 002564 

76 002566 



012700 002550' 
004737 OOOOOOG 
OOOOOOG 



oooi i; 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



MOV 


#9*, RO 


CALL 


FNSYS 


. WORD 


FP*IOS 



;G0 HERE ON RETURN FROM SYSTEM STATE 
> ENTER SYSTEM STATE 
>Fork processing priority 



We are now running in system state on interrupt stack. 

Enter handler front-end to initiate I/O operation. 

When the handler does a RETURN, uie will exit system state and 



go to QIOFIN. 



OOOOOOG 



9*: 



JMP 

Finished 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



@R2 



<SP)+, £#KPAR5 
<SP>+, R5 
<SP>+, R4 
<SP)+, R3 
<SP>+, R2 
<SP)+,R1 



i ENTER HANDLER FRONT-END 



RETURN 



OOOOOOG 
OOOOOOG 



177776 
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IOFIN — I/O operation completion 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 

11 002570 010046 IOFIN: 

12 002572 010146 

13 002574 010346 

14 002576 010446 

15 002600 010546 
16 
17 
18 

19 002602 006264 177774 

20 002606 100457 
21 
22 
23 
24 

25 002610 010405 

26 002612 

27 002620 011501 

28 002622 001004 

29 002624 

30 002632 000445 

31 002634 162701 

32 002640 016115 

33 002644 011503 

34 002646 001002 

35 002650 005065 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

46 002654 
47 
48 
49 

50 002662 116100 OOOOOOG 

51 002666 005360 OOOOOOG 
52 
53 
54 
55 
56 
57 
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SBTTL IOFIN 



I/O operation completion 



IOFIN is called by the device driver when it completes an I/O operation. 
IOFIN queues a completion routine request for the user if it was specified 
with the EMT* then tries to initiate any other pending I/O requests for 
the device. 

Inputs: 

R4 = Address of cell in handler with pointer to current queue entry. 



1*: 



MOV 
MOV 
MOV 
MOV 
MOV 



RO, -<SP) 
Rlf -<SP) 
R3, -<SP> 
R4, -(SP) 
R5, -<SP> 



If handler is being held* return immediately without doing any cleanup. 



ASR 
BMI 



-4<R4> 
9* 



; Is handler being held? 
; Br if yes 



Handler is not being held. 

Remove completed (current) queue entry from list for handler. 

Get address of CGE cell in handler 

>>** Disable interrupts *# 

; ; Address of 3rd word of current Q element 

; ;Br if there is a completed G element 

Handler has no active queue element 

Point to 1st word of queue element 
Delink queue element from handler list 
Remember if we need to restart handler 
Br if there are more pending elements 
Clear LQE pointer in handler 

At this point we have removed the completed queue element from the 

handlers list. 

We have set the current queue element (CGE) pointer in the handler to 

point to the next queue element <if any) and have zeroed the last 

queue element (LGE) pointer if there are no remaining queue entries. 

Rl - Address of 1st word of completed queue element. 

R3 = Non-zero ==> Need to restart handler for next pending I/O op. 

R5 = Pointer to CGE cell in handler. 

2*: ENABL ; ** Enable interrupts #* 

Decrement count of uncompleted I/O operations for this device 



MOV 


R4, R5 


DISABL 




MOV 


(R5),R1 > 


BNE 


1* 


ENABL 




BR 


9* 


SUB 


#Q. BLKN,R1 i 


MOV 


G. LINK(Rl), (R5) ; 


MOV 


(R5),R3 > 


BNE 


2* ; 


CLR 


-2<R5) ; 



MOVB Q. DEVX(R1),R0 
DEC HANIOC(RO) 



; Get device index number 

; Dec # uncompleted I/O operations for dev 



If the device handler did not do a . FORK before calling IOFIN* we 
queue a fork request to do the completion processing for this 
queue element. 
If the handler did do a .FORK, we do the completion processing now. 



TSEMT 


T/S EMT 


PROCESSOR 


MACRO V 


IOFIN - 


— I/O o 


peration 


complet 


ion 


58 


002672 


105737 


OOOOOOG 




59 


002676 


001403 






60 


002700 


004737 


002762 ' 




61 


002704 


000420 






62 










63 










64 










65 


002706 


004737 


OOOOOOG 




66 


002712 


1 1 2764 


OOOOOOG 


OOOOOOG 


67 


002720 


012764 


002762 ' 


OOOOOOG 


68 


002726 


010164 


OOOOOOG 




69 


002732 


010364 


OOOOOOG 




70 


002736 


010564 


OOOOOOG 




71 


002742 


004737 


OOOOOOG 




72 










73 










74 










75 


002746 


012605 






76 


002750 


012604 






77 


002752 


012603 






78 


002754 


012601 






79 


002756 


012600 






80 


002760 


000207 
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TSTB 


FRKPRI 


BEQ 


3* 


CALL 


IOFCPL 


BR 


9* 



; Are we running at fork level now? 

> Br if not 

> Do completion processing 
> Finished 

Handler did not fork. Queue a fork request to process completion routine 

in R4) 



3*: CALL 
MOVB 
MOV 
MOV 
MOV 
MOV 
CALL 

> 

i Finished 

9*: MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



FRKGET ; Get a free fork request block <addr 

#FP*IOF> FQ*PRI<R4>; Set fork processing priority 
#IOFCPL> FQ*RTN<R4); Set address of fork routine 
R1,FQ*RKR4) ; Pass address of queue element in Rl 
R3, FQ*R3<R4) iPass restart flag in R3 
R5, FQ*R5(R4> iPass address of CQE cell in R5 
FORKQ i Queue the fork request 



<SP>+, R5 
<SP)+, R4 
<SP)+, R3 
<SP)+,R1 
<SP)+, RO 



TSEMT 


T/S EMT 


PROCESSOR 


IOFCPL • 


— IOFIN 


processing dor 


1 
2 






3 






4 






5 






6 






7 






S 






9 






10 






11 






12 






13 






14 


002762 


010446 


15 






16 






17 






IS 


002764 


010104 


19 


002766 


004737 003032 


20 






21 






22 






23 






24 


002772 


005703 


25 


002774 


001414 


26 






27 






28 






29 






30 


002776 


010046 


31 


003000 


010146 


32 


003002 


010246 


33 


003004 


010346 


34 


003006 


010546 


35 


003010 


004765 000002 


36 


003014 


012605 


37 


003016 


012603 


38 


003020 


012602 


39 


003022 


012601 


40 


003024 


012600 


41 






42 






43 






44 


003026 


012604 


45 


003030 


000207 
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at fork level 

. SBTTL IOFCPL — IOFIN processing done at fork level 

This routine performs the part of the IOFIN operation that must 
run at fork level. 

This routine does the completion processing for the completed queue 
element and then recalls the handler front end if there is another 
queue element waiting to be started. 

Inputs: 

Rl = Address of 1st word of completed queue element. 

R3 = Non-zero ==> Must call handler to start pending I/O operation 

R5 = Address of CQE cell in handler. 

IOFCPL: MOV R4, -<SP) 

Perform completion operation on queue element 



MOV 
CALL 



R1.R4 
IOCMPL 



/Oet address of completed Q element 
; Do completion processing 



If there is a pending queue element for the handler, call the handler 
front end to start the next operation. 



TST 

BEQ 



R3 
9* 



> Do we need to recall handler? 

> Br if not 



There is a pending I/O operation. 
Call handler initiation section. 



9*: 



MOV 


RO, -<SP> 


MOV 


R1,-<SP> 


MOV 


R2, -<SP) 


MOV 


R3, -<SP> 


MOV 


R5, -<SP> 


CALL 


2(R5) 


MOV 


(SP)+, R5 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


MOV 


<SP)+, RO 


Finished 




MOV 


<SP)+, R4 


RETURN 





Handler front end may use any register 



Call handler front end to start next op 
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IOCMPL — Do cleanup on completed I/O queue element 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003032 
003034 
003036 
003040 
003044 
003046 
003052 
003056 
003060 
003066 
003072 
003076 
003100 
003102 
003106 
003112 
003114 
003116 
003122 
003124 
003132 
003136 
003142 
003146 
003152 
003156 
003162 
003164 
003170 



003174 
003176 
003200 
003206 

003210 



003214 



010046 
010146 
010346 
013746 
010401 
004737 
105764 
003403 
016437 
016403 
116401 
001405 
006301 
105361 
005337 
005703 
001427 
020327 
103405 
016437 
062703 
016400 
042700 
050063 
016400 
020063 
101402 
010063 
105363 



005701 
001406 
026127 
001002 



. SBTTL IOCMPL — Do cleanup on completed I/O queue element 

IOCMPL is called to do the cleanup operation on an I/O queue 
element that belongs to an I/O operation that has just completed. 

Inputs: 
R4 = Address of I/O queue element to be cleaned up. 

Outputs: 
All cleanup is done on the queue element and the queue element is 
returned to the free list or is used to queue a completion routine. 



IOCMPL: 



OOOOOOG 

004772 ' 
OOOOOOG 

OOOOOOG 000046' 
OOOOOOG 1*: 

OOOOOOG 



OOOOOOG 
OOOOOOG 

7*: 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOC 

OOOOOOG 9*: 

OOOOOOC 

OOOOOOG 

OOOOOOC 

OOOOOOG 



OOOOOOG 
OOOOOOG 



10*: 



MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

TSTB 

BLE 

MOV 

MOV 

MOVB 

BEQ 

ASL 

DECB 

DEC 

TST 

BEQ 

CMP 

BLO 

MOV 

ADD 

MOV 

BIC 

BIS 

MOV 

CMP 

BLOS 

MOV 

DECB 



RO, -<SP) 

R 1 , - < SP ) 

R3, -<SP) 

@#KPAR5, -<SP) 

R4, Rl 

FREUMR 

Q. FUNC<R4) 

1* 

Q. WCNT<R4),SPSIZE 

G. UCSW<R4),R3 

Q. J0B<R4), Rl 

7* 

Rl 

LI0CNKR1) 

UIOCNT 

R3 

12* 

R3, #CXTBAS 

9* 



Save par 5 mapping 

Get address of I/O queue element 

Release any unibus map reg used 

Special lookup/enter? 

Br if not 

Save file size 
Get address of user's channel st 
Get job number associated with r 
Br if request came from system 
Convert job # to job index numbe 
Dec # I/O operations active for 
One more user I/O operation fini 
Is there a channel block? 



to Rl 
for I/O 



atus block 
equest 



this user 
shed 



Br if not 

Is channel 

Br if not 
G. PA6(R4), @#KPAR5iMap par 5 

#<VPAR5-CXTBAS>* R3i Get address of mapped channel 
Q. ICSW<R4>, RO iGet internal CSW value 
#"C<CS*EOF ! CS*ERR>» RO ; Clear all but error and eo 
R0> C. CSW<R3) i Transfer error and eof flags to 
Q. ICSW+C. USED <R4>, RO; Get highest block # written 
RO* C. USED<R3) > Compare with blk # in original c 
10* » Br if handler didn't increase 

RO; C. USED<R3) > Save high block # in original ch 
C. NUMQ<R3) > Dec # I/O operations on channel 



in mapped job context block? 

to job context block 

in par 5 

f flags 
user's CSW 

han blk 

annel block 



See if user is waiting for I/O to finish. 



12*: 



OOOOOOG OOOOOOG 



004737 OOOOOOG 



TST 
BEQ 
CMP 
BNE 
CALL 



Rl ; IS THIS A SYSTEM I/O REQUEST? 

2* ; BR IF YES 

LSTATE<R1),#S*I0WT J IS USER WAITING FOR I/O TO FINISH? 

2* i BR IF NOT 



QHIPRI 



; PLACE USER IN RUN QUEUE 



See if we need to queue a completion routine request for user. 



026427 OOOOOOG 000001 2*: 
101451 



CMP Q. C0MP(R4),#1 
BLOS 3* 



iWAS A COMPLETION ROUTINE SPECIFIED? 
; BR IF NOT 



Queue a completion routine request for user. 

Convert I/O queue entry into completion queue entry format. 
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58 

59 003224 

60 003232 

61 003240 

62 003244 

63 003246 

64 003252 

65 003254 

66 003262 

67 003264 

68 003272 

69 003300 

70 003306 

71 003314 

72 003322 

73 003330 

74 003332 

75 003340 

76 003344 
77 

78 
79 
80 

81 003346 

82 003350 
83 

84 
85 

86 003354 

87 003360 

88 003362 

89 003364 

90 003366 



016464 
016364 
110164 
001415 
005761 
001404 
112764 
000403 
1 1 2764 
116164 
016464 
116464 
112764 
132764 
001403 
112764 
004737 
000403 



010401 
004737 



012637 
012603 
012601 
012600 
000207 



OOOOOOG OOOOOOG 

ooooooe oooooog 

OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

ooooooe 



OOOOOOG 5* 
OOOOOOG 6* 
OOOOOOG 8* 
OOOOOOG 
OOOOOOG 
OOOOOOG 



004222 ' 



OOOOOOG 



OOOOOOG OOOOOOG 
003370' 111 



MOV Q. CHAN(R4>, CQ*RKR4> i CHANNEL # GOES IN Rl ON COMPL CALL 

MOV C. CSW<R3),CQ*R0(R4) ; CSW GOES IN RO ON COMPL CALL 

MOVB Rl, CQ*J0B(R4) > SET JOB # 

BEG. 8* ; Br if system completion 

TST LITIME(Rl) > Is job in an interactive state? 

BEQ 5* i Br if not 

MOVB #S*HICP, CQ*RNS<R4)j Set interactive-computation as state 

BR 6* 

MOVB #S*IOFN, CQ*RNS<R4); SET EXECUTION STATE FOR COMPLETION ROUTINE 

MOVB LPRI(Ri), CQ*PRI(R4); Set execution priority value 

MOV G. PA5<R4>,CQ*PA5<R4);SET EMT ENTRY MAPPING FOR PAR 5 

MOVB Q. FLAG<R4),CG*FLG<R4> iCopy control flags 

MOVB #CP*STD, CQ*CP(R4>; Set standard completion class priority 

BITB #<QF*MI0!QF*CI0>,CG*FLG<R4)i Secondary op for MIO or cache? 

BEQ 11* ; Br if not 

MOVB #CP*RT, CQ*CP<R4>> Run cache completion routines at higher prio 

*: CALL QCOMPL ; QUEUE A COMPLETION ROUTINE FOR USER 

BR 4* 

We don't need to queue a completion routine 

so just return I/O queue element to the free list. 



3*: 



MOV 
CALL 



R4, Rl 
QFREE 



;GET ADDRESS OF Q ENTRY TO Rl 
;FREE THE I/O QUEUE ELEMENT 



Finished with cleanup. 



4*: 



MOV 


<SP)+, @#KPAR5 


MOV 


(SP)+, R3 


MOV 


(SP)+, Rl 


MOV 


(SP)+, RO 


RETURN 





i 
i 
i 
« 
« 



TSEMT T/S EMT PROCESSOR MACRO V05. 04 
QCOMPL — Queue a completion routine request 



Friday 22-Jan-88 14:46 Page 17 



1 

2 






3 






4 






5 






6 






7 






8 003370 


010146 




9 003372 


010246 




10 






11 






12 






13 003374 


116401 


OOOOOOG 


14 003400 


001031 




15 






16 






17 






18 






19 003402 


016400 


OOOOOOG 


20 003406 


016401 


OOOOOOG 


21 003412 


010246 




22 003414 


010346 




23 003416 


010446 




24 003420 


010546 




25 003422 


013746 


OOOOOOG 


26 003426 


016437 


OOOOOOG OOOOOOG 


27 003434 


004774 


OOOOOOG 


28 003440 


012637 


OOOOOOG 


29 003444 


012605 




30 003446 


012604 




31 003450 


012603 




32 003452 


012602 




33 






34 






35 






36 






37 003454 


010401 




38 003456 


004737 


004222 ' 


39 003462 


000477 




40 






41 






42 






43 






44 003464 






45 003472 


010100 




46 003474 


062700 


OOOOOOC 


47 003500 


010002 




48 003502 


016200 


OOOOOOG 


49 003506 


001416 




50 003510 


126460 


OOOOOOG OOOOOOG 


51 003516 


103770 




52 003520 


101011 




53 003522 


126460 


OOOOOOG OOOOOOG 


54 003530 


101363 




55 003532 


103404 




56 003534 


126460 


OOOOOOG OOOOOOG 


57 003542 


101756 





. SBTTL QCOMPL — Queue a completion routine request 

QCOMPL is called to queue a completion routine request for a user. 

Inputs: 
R4 * Address of completion request queue element (must be set up). 



QCOMPL: MOV 
MOV 



Rl, -<SP> 
R2, -<SP> 



See if this is a completion request for a system or user operation. 



MOVB CQUJQB <R4) > Rl 
BNE 1* 



;GET JOB # ASSOCIATED WITH REQUEST 
;BR IF THIS IS A USER COMPL REQUEST 



This is a completion request for a system operation. 
Call the completion routine directly. 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

MOV 



CQ*R0(R4),R0 

CQ*RKR4), Rl 

R2, -<SP> 

R3, -CSP) 

R4, -<SP) 

R5, -<SP> 

fi#KPAR5, -<SP) ; Save current PAR 

CQ*PA5(R4). @#KPAR5; Set up mapping 



SET UP REGISTERS FOR COMPL ROUTINE 



@CQ*RTN<R4> 
(SP)+, S#KPAR5 
<SP)+, R5 
<SP)+, R4 
<SP)+, R3 
<SP)+, R2 



;CALL SYSTEM 
; Restore PAR 



COMPLETION 
5 mapping 



5 mapping 
for PAR 5 region 
ROUTINE 



Finished calling system completion routine. 
Return queue element to free list. 



MOV 


R4, Rl 


CALL 


QFREE 


BR 


9* 



GET ADDRESS OF COMPLETION QUEUE ENTRY 
RETURN COMPL QUEUE ELEMENT TO FREE LIST 
FINISHED 



This is a completion routine request for a user job. 

Add the completion request to the list of pending routines for this job. 



1*: 



2*: 



DISABL ; ** Disable ** 

MOV R1,R0 i Get current job 

ADD #LCMPL-CQ*LNK, RO; Get address of 

MOV R0» R2 i Move addr of ne 

MOV CQ*LNK<R2),R0 ; Get addr of fol 

BEQ 3* i Br if we are at 

CMPB CQ*CP < R4 ) , CQ*CP < RO ) > Compare c omp 

BLO 2* » Br if new el erne 

BHI 3* ; Br if new eleme 

CMPB CQ*RNS(R4),CQ*RNS(R0)i Compare st 

BHI 2* i Br if new eleme 

BLO 3* ; Br if new eleme 

CMPB CQ*PRI(R4),CQ*PRKR0) ; States ar 

BLOS 2* ; Br if new prior 



number 
LCMPL(Rl) 

xt compl queue element to R2 
lowing queue element 

the end of the list 
letion class priorities 
nt is of lower priority 
nt is of higher priority 
ate of new one to next 
nt is of lower priority state 
nt is of higher priority state 
e the same* compare prio value 
ity is lower or equal 



< 
i 



TSEMT 
QCOMPL 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 



T/S EMT 
— Queue 

003544 
003550 
003554 



003562 
003566 
003570 
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010064 OOOOOOG 
010462 OOOOOOG 



3*: 



MOV 
MOV 
ENABL 



RO. CQ*LNK<R4> 
R4, CQ*LNK<R2) 



003576 
003602 
003606 
003610 
003614 
003620 
003622 
003630 
003632 



003640 
003644 
003650 
003652 
003656 



003662 
003664 
003666 



; CHAIN NEW ONE INTO LIST FOR JOB 
; #* ENABLE *# 
Set default completion routine class priority if none was specified. 



105764 OOOOOOG 

001003 

112764 OOOOOOG OOOOOOG 



TSTB CG*CP(R4> 

BNE 7* 

MOVB #CP*STD, CG*CP<R4>; Set standard class priority 



; Was a class priority specified? 
; Br if yes 



1 1 6400 OOOOOOG 

120061 OOOOOOG 

101402 

110061 OOOOOOG 

120037 OOOOOOG 

103407 

126427 OOOOOOG OOOOOOG 

101403 

112764 OOOOOOG OOOOOOG 



1 1 6400 OOOOOOG 

026100 OOOOOOG 

101402 

004737 OOOOOOG 

105237 OOOOOOG 



7*: 



5*: 



012602 
012601 
000207 



6*: 



4$: 



9*: 



If the completion priority is at a real-time level* make sure 
the execution state is S*RT 

Get execution priority for compl routine 

Is current priority at least this high? 

Br if yes 

Boost priority till completion routine runs 

Is this a real-time priority? 

Br if not 

Is real-time execution state specified? 

Br if yes 

Set real-time execution state 

Place job in appropriate execution state (as specified in CG*RNS) 

GET REQUESTED EXECUTION STATE FOR JOB 

IS JOB ALREADY IN THAT STATE OR HIGHER PR 10? 

BR IF YES 

CHANGE JOB'S EXECUTION STATE 

REQUEST A JOB SCHEDULER CYCLE 



MOVB 


CQ*PRI<R4>,R0 


CMPB 


RO, LPRKR1) 


BLOS 


5* 


MOVB 


RO, LPRKR1) 


CMPB 


RO, VPRIHI 


BLO 


6* 


CMPB 


CQ*RNS<R4),#S*RT 


BLOS 


6$ 


MOVB 


#S*RT, CQ*RNS<R4> 



MOVB 


CQ*RNS(R4),R0 


CMP 


LSTATE<R1),R0 


BLOS 


4* 


CALL 


ENQTL 


INCB 


DOSCHD 


Finished 




MOV 


(SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





TSEMT 
FAKCMP 
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€ 



003670 
003672 



003674 004737 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 

43 004014 

44 004016 

45 004020 
46 

47 
48 

49 004022 

50 004026 

51 004032 



. SBTTL FAKCMP 



Generate fake completion routine request 



FAKCMP is called to generate a completion queue request for I/O operations 
such as TT I/O and spooled I/O that never enter a normal I/O queue request. 



Inputs: 
EMTBLK = EMT argument block for readc or uiritc. 
CHNNUM = User's channel number. 



010146 
010446 



FAKCMP: MOV 
MOV 



R1,-<SP> 
R4, -<SP> 



Get an I/O queue entry 
CALL GETQ 



GET AN I/O QUEUE ENTRY FROM FREE LIST 



Set up queue entry to look like a completion queue request. 
(Address of queue element is now in Rl) 



003700 
003706 
003712 
003720 
003724 
003730 
003732 
003736 
003744 
003752 
003756 
003764 
003772 
003776 
004000 



004006 
004010 



113761 
005061 
013761 
013700 
004737 
103434 
010061 
013761 
112761 
113700 
116061 
112761 
005761 
001403 
112761 



010104 
004737 



012604 
012601 
000207 



004737 
012700 
000137 



OOOOOOG 
OOOOOOG 
OOOOOOG 
0000 10G 
005352 ' 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



MOVB 

CLR 

MOV 

MOV 

CALL 

BCS 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

TST 

BEQ 

MOVB 



C0RUSR,CQ*J0B<R1);SET JOB # IN QUEUE ENTRY 



CQ*R0<R1) 

CHNNUM, CQ*R1(R1) 

EMTBLK+10, RO 

UACHKW 

9* 

RO, CQ*RTN(R1) 



} SAY CSW IS ZERO <N0 ERRORS) 
i RETURN USER'S CHANNEL # IN Rl 
; GET ADDRESS OF COMPL ROUTINE 
; MAKE SURE ADDRESS IS LEGAL 
j BR IF INVALID 

iSET COMPLETION ROUTINE ADDRESS 
EMTMAP, CQ*PA5<R1);SET EMT ENTRY PAR 5 MAPPING 
#CP*STD, CG*CP<R1>; Set standard completion class priority 
CORUSR, RO iGet job number 
LPRKRO), CQ*PRI (Rl >; Set job execution priority 
#S*IOFN, CQ*RNS(Rl)iSET EXECUTION STATE FOR COMPL ROUTINE 
LITIME(Rl) ; Is this an interactive job? 
1* ; Br if not 

#S*HICP» CQ*RNS(R1 ); Set execution state for interactive job 



1* 



003370 ' 



Queue completion request for this job. 

;GET ADDRESS OF COMPL Q ELEMENT TO R4 



MOV 
CALL 

Finished 

MOV 
MOV 
RETURN 



Rl, R4 
QCOMPL 



<SP>+, R4 
(SP)+, Rl 



QUEUE COMPL REQUEST FOR JOB 



Error: Invalid completion routine address. 



004222 ' 
177766 
004036 ' 



9*: 



CALL 

MOV 

JMP 



QFREE 
#-12, RO 
SETERR 



; RETURN THE QUEUE ELEMENT 

i RETURN INVALID-EMT ERROR CODE 



i 
4 

i 
i 

4 
i 

4 
I 

( 
I 
« 

< 

i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



SBTTL SETERR 



Set EMT error code and exit 



SETERR is jumped to to set an EMT error code and exit from the 
EMT processing. 



Inputs: 
RO = EMT error code to be returned. 



004036 110037 OOOOOOG 
004042 002010 



SETERR: MOVB 
BGE 



RO, EMTERR 
ERROK 



;SAVE ERROR CODE 

;BR IF POSITIVE VALUE 



We have a negative error code. 

This implies a fatal error unless a . SERR uias done. 



004044 105737 OOOOOOG 
004050 001005 



004052 010005 

004054 013704 OOOOOOG 

004060 000137 OOOOOOG 



TSTB SERFLG 

BNE ERROK 

• Fatal EMT error. 

i Abort the job. 

MOV RO, R5 
EMTABT: MOV EMTADR, R4 

JMP ABORT 



i WAS A . SERR DONE? 
; BR IF YES 



GET ABORT CODE 

GET ADDRESS OF EMT INSTRUCTION 

ABORT THE JOB 



Non-fatal error 
ERROK 



Return with c-flag set. 



004064 105037 OOOOOOG ERROK: CLRB 

004070 052737 OOOOOOG OOOOOOG SETC: BIS 
004076 000137 001110' JMP 



INTERR 
#CFLAG, EMTPS 
EMTXIT 



; IGNORE INTERNAL ERROR CODE 
; SET C-FLAG IN PS 



i 

« 

€ 

< 
i 

i 

i 
I 



TSEMT 
GETQ 



T/S EMT 

— Get a 
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4 
4 



l 

2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL GETQ 



— Get a free I/O queue element 



00410J 



004110 
004114 



005737 OOOOOOG 
003011 



004116 
004122 
004126 
004132 
004136 



005237 000026' 

012700 OOOOOOG 

004737 OOOOOOG 

004737 OOOOOOG 
000761 



004140 
004144 
004150 
004156 



005337 OOOOOOG 
013701 OOOOOOG 
016137 OOOOOOG OOOOOOG 



004164 004737 004200' 



004170 013761 OOOOOOG OOOOOOG 



004176 000207 



GETQ is called to get a free I/O queue element. 

If there are no free elements available* the user is suspended until 

one becomes available. 

Outputs: 

Rl = Address of I/O queue element obtained. 

GETQ: DISABL i i > DISABLE INTERRUPTS 

Reserve the last few queue elements for system I/O use. 



TST 
BGT 



NMFREQ 
1* 



; ; ; ANY QUEUE ELEMENTS WE CAN USE? 
i i i BR IF YES 



There are no free I/O queue elements. 
Put user in queue waiting for one. 



INC 


QWTCNT 


MOV 


#S*NEDQ, RO 


CALL 


QNSPND 


CALL 


CHKABT 


BR 


GETQ 



; Say another job waiting for queue element 
; QUEUE FOR JOBS WAITING FOR Q ELEMENTS 
;ADD JOB TO END OF QUEUE LIST (ENABLE I NTS) 
See if job was aborted while asleep 
GO BACK AND TRY TO GET A QUEUE ELEMENT 



We have found a free queue element. 
Remove it from the free list. 



1*: 



DEC 
MOV 
MOV 

ENABL 



NMFREQ ; 

FREIOQ, Rl ; 
Q. LINK(R1),FREI0Q 



DEC # FREE QUEUE ELEMENTS 

GET ADDRESS OF 1ST FREE Q ELEMENT 

i REMOVE ELEMENT FROM FREE LIST 



; Enable interrupts 
Zero the I/O queue element 

CALL ZEROQ ; ZERO THE QUEUE ELEMENT 

Save info about current job context block mapping in queue element 

MOV @#KPAR6, Q. PA6<R1 ) ; Save context block mapping 
Finished 

RETURN 



ZEROQ is called to zero an I/O queue element. 

Inputs: 
Rl = Address of I/O queue element 



004200 
004202 
004204 
004210 
004212 
004214 



010146 
010246 
012702 
005021 
077202 
012602 



OOOOOOC 



ZEROQ: MOV 
MOV 
MOV 

1*: CLR 
SOB 
MOV 



R1*-<SP) 
R2, -<SP> 
#I0QSIZ/2, R2 
(Rl) + 
R2, 1* 
<SP>+, R2 



;GET # WORDS IN I/O QUEUE ELEMENT 
i ZERO ALL WORDS IN QUEUE ELEMENT 



< 

i 

l 
< 

« 
I 
( 
< 
i 
( 

I 

4 
4 
i 

« 
4 
< 



1 
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SETQ -- Get a free I/O queue element 

58 004216 012601 MOV <SP)+, Rl 

59 004220 000207 RETURN 



!« 
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to the free list 



1 

2 








3 








4 








5 








6 








7 








8 








9 


004222 


010046 




10 


004224 






11 


004232 


013700 


OOOOOOG 


12 


004236 


010061 


OOOOOOG 


13 


004242 


010137 


OOOOOOG 


14 


004246 






15 


004254 


005237 


OOOOOOG 


16 


004260 


003415 




17 








18 








19 








20 


004262 


005737 


000026 ' 


21 


004266 


001412 




22 


004270 


012700 


OOOOOOG 


23 


004274 


004737 


OOOOOOG 


24 


004300 


103403 




25 


004302 


004737 


OOOOOOG 


26 


004306 


000402 




27 


004310 


005037 


000026 ' 


28 








29 








30 








31 


004314 


012600 




32 


004316 


000207 





. SBTTL QFREE 



Return an I/O queue element to the free list 



QFREE is called to return an I/O queue element to the free list. 



Inputs: 

Rl = Address of queue element to be freed. 

All registers are preserve. 



QFREE: 



MOV 


RO, -<SP> 


DISABL 




MOV 


FREIOG, RO 


MOV 


RO, Q. LINK<R1) 


MOV 


Rl, FREIOQ 


ENABL- 




ING 


NMFREQ 


BLE 


9* 



# DISABLE INTERRUPTS 

# GET CURRENT HEAD OF FREE LIST 

# CHAIN NEW ELEMENT INTO FREE LIST 
# 

ENABLE INTERRUPTS 

INC # FREE QUEUE ELEMENTS 

BR IF NOT ENOUGH FOR USER JOBS TO USE 



Restart users waiting for free I/O queue elements. 



2*: 



9*: 



TST 


QWTCNT 


BEQ 


9* 


MOV 


#S*NEDQ, RO 


CALL 


QSRCH 


BCS 


2* 


CALL 


QHIPRI 


BR 


9* 


CLR 


QWTCNT 


Finished 




MOV 


<SP>+, RO 


RETURN 





i Are any jobs waiting for a queue element? 

i Br if not 

> Get wait state 

; See if any jobs waiting for queue element 

; Br if no jobs waiting 

; Requeue job in high-priority state 

;Restarted all waiting jobs 



1 
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1 
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system I/O 



. SBTTL GETSYQ 



Get queue element for system I/O 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 004320 

14 004322 
15 

16 

17 

18 004324 

19 

20 

21 

22 004330 

23 004334 

24 004336 
004342 
004346 
004352 

28 004360 

29 004366 

30 004374 

31 004400 

32 004404 
33 

34 
35 

36 004410 

37 004412 
38 

39 
40 
41 
42 
43 
44 
45 
46 
47 

48 004414 

49 004422 

50 004426 

51 004430 

52 004436 

53 004442 

54 004450 

55 004454 
56 

57 



GETSYQ is called to get a queue element to be used for system 

<kernel mode) I/O operations. 

GETSYQ gets a free queue element and sets up information in it. 

Inputs: 
Rl = Address of system channel block to be used for I/O. 

Outputs: 
Rl = Address of I/O queue element obtained. 



010246 
010102 



004737 004414' 



GETSYQ: MOV 
MOV 



R2, -<SP> 
R1,R2 



; GET ADDRESS OF CHANNEL BLOCK 
Get a free I/O queue element 

CALL GETRTQ > GET A QUEUE ELEMENT < ADDRESS RETURNED IN Rl) 

Set up information in queue element about the channel 



25 

26 
27 



010261 
010100 
062700 
010061 
016210 
016261 
116261 
012761 
016202 
042702 
110261 



012602 
000207 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

177701 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 

MOV 

ADD 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

BIC 

MOVB 

Finished 

MOV 
RETURN 



ADDRESS OF CSW FOR CHANNEL 

GET ADDRESS OF I/O QUEUE BLOCK 

POINT TO INTERNAL CSW WORD 

SET POINTER TO INTERNAL CSW WORD 

INITIALIZE CSW WORD 

C. SBLK(R2),Q. BLKN(R1 ); BASE BLOCK # OF FILE 

C. DEVQ<R2),Q. UNIT(Rl); DEVICE UNIT # 

#VPAR6, Q. BUFF <R1); SET BUFFER ADDRESS TO MAP THROUGH PAR 6 



R2, Q. UCSW(Rl) 

R1,R0 

#Q. ICSW, RO 

RO, Q. CSW<R1) 

C. CSW<R2), (RO) 



C. CSW(R2)>R2 

# A C76, R2 

R2, Q. DEVX<R1) 



(SP)+, R2 



GET CHANNEL STATUS WORD 

CLEAR ALL BUT DEVICE INDEX NUMBER 

SET DEVICE INDEX NUMBER 



. SBTTL GETRTQ — Get queue element for real-time use 

GETRTQ is called to get a free I/O queue element for system or 
real-time use. 

Outputs: 
Rl = Address of free queue element obtained. 
A system crash occurs if there are no free queue elements. 



013701 OOOOOOG 

001413 

016137 OOOOOOG 

005337 OOOOOOG 



004737 
000207 



004200 ' 



GETRTQ: DISABL 
MOV 
BEQ 
OOOOOOG MOV 

DEC 
ENABL 
CALL 
RETURN 



; *# DISABLE #* 
FREIOQ, Rl ;GET ADDRESS OF A FREE I/O QUEUE ELEMENT 
1* i SYSTEM CRASH IF NO FREE ELEMENTS AVAILABLE 

Q. LINK<Rl),FREIOQi REMOVE QUEUE ELEMENT FROM FREE LIST 
NMFREQ i DEC # AVAILABLE QUEUE ELEMENTS 

i #* ENABLE ** 
ZEROQ ; ZERO THE QUEUE ELEMENT 



« 

< 

4 
< 

< 

i 

< 
4 
I 

i 
4 

I 
< 

< 



Fatal system error — No free I/O queue elements available. 



t 
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GETRTQ — Get queue element for real-time use 



58 ■> 

59 0044 5 a 1*- DTF #EM*NQE ;N0 QUEUE ELEMENTS AVAILABLE 



i 
i 

4 
I 
I 

< 
i 
i 
< 

( 
I 

< 
4 
< 

< 
< 
4 
I 

( 
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< 

< 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

25 004470 005761 

26 004474 001007 

27 004476 105737 

28 004502 001404 

29 004504 032762 

30 004512 001002 

31 004514 000241 

32 004516 000207 
33 
34 
35 

36 004520 010246 11*: 

37 004522 010346 

38 004524 010446 

39 004526 010546 

40 ; 
41 
42 

43 004530 016103 OOOOOOG 

44 004534 002001 

45 004536 005403 
46 
47 
48 

49 004540 012704 0000006 10*: 

50 004544 

51 004552 005764 0000006 1*: 

52 004556 001003 

53 004560 020364 OOOOOOG 

54 004564 101425 

55 004566 062704 OOOOOOG 5*: 

56 004572 020427 OOOOOOG 

57 004576 103765 



SBTTL GETUMR 



Allocate Unibus map register 



OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



GETUMR is called to determine if a Unibus map register set needs to be 
allocated for an I/O operation. If unibus mapping is needed for the 
operation. GETUMR attempts to find a free unibus map register set large 
enough to handle the operation. If a free UMR can be found* it is 
allocated to the operation. If no free UMR can be found, the I/O 
queue request is placed on a waiting list and an exception condition 
is signaled on return. 

Inputs: 
Rl = Address of I/O queue entry. 
R2 = Device index number of device I/O is being directed to. 

Outputs: 
C-flag clear ==> A UMR was successfully allocated. 
C~flag set ==> No free UMR. Defer I/O request. 

Q. UMRX = Address of UMR descriptor block for UMR that mas allocated. 
Q. UMPB = Original value of Q. BUFF 
Q. UMPP ~ Original value of Q. PAR 
Q. UMVB = Number of base UMR being used by operation. 

See if this device needs unibus mapping 

SETUMR: TST Q. UMRX<R1) i Have uie already allocated a UMR? 

i Br if yes 

i IS UNIBUS MAPPING NEEDED AT ALL? 

;BR IF NOT 
AG(R2) ; IS THIS A DMA DEVICE? 

; BR IF YES 
9*: CLC ; SIGNAL SUCCESS ON RETURN 



TST 


Q. UMRX<R1) 


BNE 


9* 


TSTB 


UBUSMP 


BEG 


9* 


BIT 


#DX*DMA, DV 


BNE 


11* 


CLC 




RETURN 





We must do unibus mapping for this I/O operation. 



MOV 
MOV 
MOV 
MOV 



R2, -<SP> 
R3, -<SP> 
R4, -<SP) 
R5. -<SP> 



I 
I 

< 

< 
« 



Determine how many words are being transferred 



MOV Q. WCNT(Rl). R3 
BGE 10* 
NEG R3 



;GET SPECIFIED WORD COUNT 
;BR IF VALUE POSITIVE 
;GET POSITIVE WORD COUNT 



Find the smallest free UMR set that is large enough for this transfer 

; POINT TO BASE OF UMR DESCRIPTOR BLOCKS 

i *# DISABLE *# 

; IS THIS UMR SET FREE? 

i BR IF NOT 

; IS THIS UMR SET LARGE ENOUGH? 

; BR IF YES 

; POINT TO NEXT UMR DESCRIPTOR 

; CHECKED ALL? 

; BR IF NOT 



MOV 


#UMRBAS, R4 


DISABL 


-v " * 


TST 


UM*I0Q<R4) ; 


BNE 


5* i 


CMP 


R3, UM*WDS<R4) ; 


BLOS 


4* i 


ADD 


#UM**SZ, R4 ; 


CMP 


R4, #UMREND ; 


BLO 


1* i 



« 
I 
4 



ooooooc 

OOOOOOG 



OOOOOOG 

ooooooc 



OOOOOOG 
OOOOOOG 
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58 
59 
60 
61 

62 004600 012704 

63 004604 016405 

64 004610 001402 

65 004612 010504 

66 004614 000773 

67 004616 010164 

68 004622 005061 

69 004626 

70 004634 000261 

71 004636 000450 
72 

73 
74 

75 004640 010164 

76 004644 

77 004652 010461 
78 

79 
80 
81 
82 
83 
84 

85 004656 016105 

86 004662 010561 

87 004666 016103 

88 004672 010361 

89 004676 116461 
90 

91 
92 

93 004704 162705 

94 004710 005002 

95 004712 073227 

96 004716 060503 

97 004720 005502 

98 004722 116405 

99 004726 072527 

100 004732 062705 

101 004736 116400 

102 004742 010325 

103 004744 010225 

104 004746 062703 

105 004752 005502 

106 004754 077006 
107 

108 
109 

110 004756 000241 

111 004760 012605 

112 004762 012604 

113 004764 012603 

114 004766 012602 
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There are no free UMR register sets of adequate si2# 
Put I/O queue entry on list waiting for a free UMR. 



2$: 



3*: 



MOV 

MOV 

BEG 

MOV 

BR 

MOV 

CLR 

ENABL 

SEC 

BR 



#<UMRWHD-Q. LINK>, R4 ; POINT TO HEAD OF WAIT LIST 



Q. LINK<R4),R5 

3* 

R5, R4 

2$ 

Rl. Q. LINK(R4) 

Q. LINK(Rl) 



8* 



IS THIS THE LAST ENTRY IN THE LIST? 

BR IF YES 

LINK TO NEXT ENTRY 

GO CHECK IT 

ADD OUR I/O QUEUE ENTRY TO TAIL OF LIST 

SAY WE ARE THE LAST ENTRY IN LIST 

## ENABLE ** 

SIGNAL FAILURE 

GO RETURN 



We found a free UMR. Claim it for our I/O request 
4*: MOV R1,UM*I0Q<R4> 

R4, Q. UMRX<R1) 



MOV 

ENABL 
MOV 



SAY UMR SET IS IN USE 

#* ENABLE ** 

REMEMBER WHICH UMR SET IS USED BY OPERATION 



Set up information in I/O queue entry that will be used by MPPHY 
routine to calculate unibus virtual address. 

G. UMPB = Original value of G. BUFF 

G. UMPP = Original value of G. PAR 

G. UMVB = Number of base UMR being used by transfer. 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
000006 



MOV 
MOV 
MOV 
MOV 
MOVB 



Q. BUFF<R1),R5 
R5, G. UMPB(Rl) 
G. PAR(R1),R3 
R3, Q. UMPP(Rl) 



GET CURRENT BUFFER ADDRESS RELATIVE TO PAR6 

SAVE ORIGINAL BUFFER ADDRESS 

GET PAR6 BASE ADDRESS 

Save original value of Q. PAR 



UM*UMR<R4>,Q. UMVB(Rl) ; BASE UMR # 



Set up mapping base value in unibus map register. 



OOOOOOG 
000002 
OOOOOOG 
OOOOOOG 



020000 





SUB 


#VPAR6, R5 




CLR 


R2 




ASHC 


#6, R2 




ADD 


R5, R3 




ADC 


R2 




MOVB 


UM*UMR(R4), 




ASH 


#2, R5 




ADD 


#UMRADR, R5 




MOVB 


UM*NMR(R4>, 


6*: 


MOV 


R3, <R5) + 




MOV 


R2, (R5) + 




ADD 


#8192. , R3 




ADC 


R2 




SOB 


RO, 6* 




Finished 




7*: 


CLC 




8$: 


MOV 


(SP>+, R5 




MOV 


<SP>+, R4 




MOV 


<SP>+, R3 




MOV 


<SP>+, R2 



R5 



RO 



REMOVE PAR6 BIAS FROM BUFFER ADDRESS 

SET UP HIGH-ORDER REGISTER (R2-R3) 

SHIFT G. PAR VALUE 6 PLACES (R2-R3) 

ADD IN BUFFER BASE OFFSET 

PROPOGATE CARRY 

GET UNIBUS MAP REGISTER # 

#4 BYTES PER REGISTER 

GET ADDRESS OF UNIBUS MAP REGISTER 

GET # MAP REGISTERS USED IN THIS SET 

SET LOW ORDER VALUE 

SET HIGH ORDER VALUE 

ADVANCE ADDRESS VALUE 

PROPOGATE CARRY 

LOOP IF MORE REGISTERS IN SET 



SIGNAL SUCCESS ON RETURN 
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115 004770 000207 RETURN 



1 



TSEMT 
FREUMR 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL FREUMR — Free a Unibus map register 



004772 005761 OOOOOOG 
004776 001464 



005000 010146 

005002 010246 

005004 010346 

005006 010446 

005010 010546 



005012 016104 OOOOOOG 
005016 005064 OOOOOOG 
005022 005061 OOOOOOG 



005026 016405 OOOOOOG 

005032 

005040 012702 OOOOOOC 

005044 000406 

005046 016200 OOOOOOG 

005052 002001 

005054 005400 

005056 020005 

005060 101410 

005062 010203 

005064 016202 OOOOOOG 

005070 001366 

005072 

005100 000416 



FREUMR is called to free a unibus map register set associated with an 
I/O request. 

If there is an I/O request waiting for a free UMR set and the set being 
freed is large enough for the waiting request* the request is removed 
from the wait list and is started. 



Inputs: 
Rl = Address of I/O queue element that is being freed. 

See if there is a UMR associated with this request. 



FREUMR: TST Q. UMRX<R1) 
BEQ 9* 



i IS THERE A UMR ASSOCIATED WITH THIS REQUEST? 
i BR IF NOT 



This I/O queue does have an associated UMR. 



MOV 
MOV 
MOV 
MOV 

MOV 

Free the UMR 

MOV 
CLR 
CLR 



R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -<SP) 
R5, ~<SP) 



Q. UMRX(R1),R4 
UM*I0Q<R4> 
Q. UMRX<R1> 



GET ADDRESS OF UMR DESCRIPTOR BLOCK 

SAY THE UMR IS FREE 

SAY NO UMR ASSOCIATED WITH I/O REQUEST 



1*: 

2*: 
3*: 



See if there is any I/O queue request waiting for a free UMR 
that could be satisfied with the UMR that is being freed. 

;GET SIZE OF UMR SET THAT IS BEING FREED 
; *# DISABLE ## 
*, R2 i POINT TO HEAD OF WAIT LIST 

; GET # WORDS NEEDED BY THIS I/O REQUEST 

GET POSITIVE VALUE 

IS THE FREED UMR LARGE ENOUGH? 

BR IF YES 

SAVE ADDRESS OF THIS I/O REQUEST 

GET ADDRESS OF NEXT WAITING I/O REQUEST 

BR IF THERE IS ANOTHER 

** ENABLE #* 

THERE ARE NO WAITING ENTRIES TO BE STARTED 

We found a waiting I/O queue entry that could be started by 

the UMR that has just been freed/ 

Remove I/O queue entry from wait list and try to start it. 



MOV 


UM*WDS(R4>, 


R5 


DISABL 






MOV 


#<UMRWHD-G. 


LI 


BR 


3* 




MOV 


Q. WCNT<R2>, 


RO 


BGE 


2$ 




NEG 


RO 




CMP 


RO, R5 




BLOS 


4* 




MOV 


R2, R3 




MOV 


Q. LINMR2), 


R2 


BNE 


1* 




ENABL 






BR 


8* 





i2 016263 OOOOOOG OOOOOOG 4*: 
005110 

005116 010201 

005120 116102 OOOOOOG 

005124 004737 004470' 



MOV Q. LINK(R2)>Q. LINK<R3) ; REMOVE I/O QUEUE ENTRY FROM WAIT LIST 

ENABL ; ** ENABLE ** 

MOV R2, Rl ;GET ADDRESS OF I/O QUEUE ENTRY TO Rl 

MOVB Q. DEVX(R1),R2 > Get device index number 

CALL GETUMR i We should be able to get a free UMR now 



t 
< 

< 
I 

I 

< 

i 
I 

( 
i 

i 
< 

< 

i 
I 

< 



( 

< 

i 
t 
i 
i 

!« 
< 
i 
i 

< 
i 
i 

< 
< 
i 

i 
< 
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58 005130 

59 005132 
60 

61 
62 

63 005136 

64 005140 

65 005142 

66 005144 

67 005146 

68 005150 



103402 
004737 



012605 
012604 
012603 
012602 
012601 
000207 



002416 



8*: 



9*: 



BCS 


8* 


CALL 


IOHANQ 


Finished 




MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





; Br if could not get UMR 

i Queue thi«t rp«|tiP«;t to the device handler 



< 

i 
« 

I 

4 
< 

< 
< 
< 

< 
i 

( 



TSEMT 
GETUCH 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



005152 032703 000001 
005156 001004 



005160 106513 

005162 005203 

005164 112600 

005166 000207 



005170 005303 

005172 106523 

005174 012600 

005176 105000 

005200 000300 

005202 000207 



. SBTTL GETUCH — Get character from user's buffer 

GETUCH is called to get a character from the user's buffer. 

Inputs: 
R3 = Address of byte to be fetched. 

Outputs: 
RO = Byte we got. 
R3 = Incremented. 



GETUCH: BIT 
BNE 



#1, R3 
1* 



Byte is on a word boundary 



MFPD 
INC 
MOVB 
RETURN 



(R3) 
R3 
<SP>+, RO 



Byte address is odd 



1$: 



DEC 


R3 


MFPD 


(R3) + 


MOV 


<SP>+, RO 


CLRB 


RO 


SWAB 


RO 


RETURN 





i GETTING ODD OR EVEN BYTE? 
iBR IF ODD 



;GET WORD CONTAINING BYTE 

; ADVANCE R3 

; RETURN BYTE IN RO 



; POINT TO START OF WORD WITH BYTE 
iGET WORD WITH BYTE 

; CLEAR LOW-ORDER BYTE 

i MOVE HIGH-ORDER BYTE TO LOW-ORDER 



t 
i 
« 
i 

i 

i 
< 
i 
i 

< 
4 

< 
< 
I 

4 

i 



€ 
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1 






2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 


005204 


032703 000001 


13 


005210 


001005 


14 






15 






16 






17 


005212 


106513 


18 


005214 


110016 


19 


005216 


106613 


20 


005220 


005203 


21 


005222 


000406 


22 






23 






24 






25 


005224 


005303 


26 


005226 


106513 


27 


005230 


000316 


28 


005232 


110016 


29 


005234 


000316 


30 


005236 


106623 


31 


005240 


000207 



. SBTTL PUTUCH — Move byte to user's buffer 
PUTUCH is called to move a byte into the user's buffer. 



Inputs: 
RO = Byte to be stored. 
R3 = Address where byte is to be stored. 

Outputs: 
R3 = Incremented. 



PUTUCH: BIT #1,R3 
BNE 1* 

Byte address is even. 



MFPD 


<R3) 


MOVB 


RO, (SP) 


MTPD 


<R3) 


INC 


R3 


BR 


2* 



Byte address is odd. 



1*: 



2*: 



DEC 


R3 


MFPD 


(R3) 


SWAB 


(SP) 


MOVB 


RO, <SP> 


SWAB 


(SP) 


MTPD 


(R3) + 


RETURN 





; IS BYTE ADDRESS ODD OR EVEN? 
;BR IF ODD 



GET WORD WHERE BYTE IS TO BE STORED 
PUT IN OUR BYTE 
REPLACE WORD 
INCREMENT R3 



POINT TO WORD WITH BYTE 

GET WORD WITH BYTE 

GET BYTE TO LOW-ORDER 

PUT IN NEW BYTE 

REPOSITION 

STORE BACK INTO USER'S BUFFER 



< 

I 
I 
< 
i 
i 
< 
< 

< 

< 
I 

4 



i 



i 
« 

< 
i 



TSEMT 
SYBFAD ■ 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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005242 010046 
005244 010246 



005246 020027 OOOOOOG 
005252 103407 



005254 113702 OOOOOOG 

005260 016202 OOOOOOG 

005264 072227 000003 

005270 000421 



005272 020027 OOOOOOG 
005276 103405 



005300 013702 OOOOOOG 
005304 062700 020000 
005310 000411 



005312 010002 

005314 000241 

005316 006002 

005320 072227 177773 

005324 042700 177700 

005330 062700 OOOOOOG 



005334 010261 
005340 010061 



OOOOOOG 
OOOOOOG 



. SBTTL SYBFAD — Set system buffer address in I/O queue entry 

SYBFAD is called to convert a buffer address in system space into an 
address that will be mapped through PAR 6. This address is stored 
into a specified I/O queue element. 

The buffer address may be in low physical memory (PAR through PAR 4)# 
in a mapped system overlay region <PAR 5), or in the user context 
block (PAR 6). 

Inputs: 
RO = Physical address to be converted. 
Rl = Address of I/O queue entry to be set up. 

Outputs: 
Q. PAR(Rl) & Q. BUFF(Rl) are set up. 



SYBFAD: 



MOV 
MOV 



RO, -(SP> 
R2, -(SP> 



Determine which region buffer is in. 



CMP 
BLO 



RO, #CXTBAS 
2$ 



i Is buffer in job context block? 
;Br if not in context block 



Buffer is in job context block 



MOVB 


CORUSR, R2 


MOV 


LBASE(R2>, R2 


ASH 


#3, R2 


BR 


9* 



Get current job index number 

Get base 256~word block number of context blk 

Convert to 32-word block number 

(Note: virtual address in RO already in PAR 6 



See if we are accessing a buffer in a system mapped region 



>*: 



CMP 
BLO 



RO, #VPAR5 
12$ 



; Is buffer in a system mapped region? 
; Br if not 



Buffer is in a system mapped region 



MOV @#KPAR5, R2 
ADD #20000, RO 
BR 9* 



t Get current mapping for kernel PAR 5 
» Bias virtual address to PAR 6 region 



We are accessing a buffer stored in low physical memory (PAR 0-4) 



12$: 



MOV 
CLC 
ROR 
ASH 
BIC 
ADD 



RO, R2 

R2 

#-5, R2 
# A C77, RO 
#VPAR6, RO 



i Get actual address 

> Convert to page number 



; Get byte-in-page to RO 
j Map through PAR 6 



Store values into I/O queue element 



9*: 



MOV 
MOV 

Finished 



R2, Q. PAR(Rl) 
RO, Q. BUFF(Rl) 



Page relocation bias 
Buffer address 



I 
I 

I 
« 

< 

< 
I 

( 
< 

i 

i 
i 
i 

< 
i 
i 

« 



< 
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SYBFAD — Set system buffer address in I/O queue entry 



58 i 

59 O05344 012602 MOV (SP)+, R2 

60 005346 012600 MOV <SP)+, RO 

61 005350 000207 RETURN 



« 
I 

4 
i 
< 
< 
i 

« 
« 

< 
I 
( 

« 
< 
< 
< 



TSEMT 
UACHKx 



T/S EMT 
- Check 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL UACHKx — Check validity of user address 



UACHKW and UACHKB are called to determine if an emt address is 

within the valid region of the current job. 

UACHKW also checks to see that the address is on a word boundary. 

Inputs: 
RO = Address to be checked (preserved) 
EMTPS = PS saved by EMT 
UH1MEM = Top address of job region 

Outputs: 
C-flag set on return if address is invalid. 

Check a word address 



005352 
005356 
005360 
005362 



032700 000001 
001402 
000261 
000207 



IS ADDRESS EVEN? 
BR IF YES 
SIGNAL ERROR 



005364 
005370 



020037 000000G 
101404 



005372 
005400 
005402 
005404 



005406 
005410 
005412 



005416 
005424 
005426 
005432 



005434 
005436 
005442 
005446 
005452 
005454 
005456 



032737 0000000 OOOOOOG 

001002 

000241 

000207 



UACHKW: BIT #1,R0 
BEG UACHKB 
SEC 
RETURN 

i 

Check byte address 

See if address is in normal job region 
UACHKB: CMP RO, UHIMEM ; IS ADDRESS IN NORMAL JOB REGION 
BLOS 4* i BR IF YES 

Address is not in normal job region. 

Allow kernel-mode emt's to access all of memory 

IS THIS A KERNEL MODE EMT? 
BR IF NOT 
4iS: CLC ; SIGNAL SUCCESSFUL RETURN 

This is a user-mode emt accessing a region above the normal top of job 



BIT 


#UMODE, EMTPS 


BNE 


5* 


CLC 




RETURN 





010146 
010246 
113701 



5*: 



OOOOOOG 



MOV 
MOV 
MOVB 



Rl, -<SP> 
R2, -<SP) 
C0RUSR,R1 



;GET CURRENT JOB INDEX NUMBER 
Allow KMON to access job context area 



032761 OOOOOOG OOOOOOG 

001403 

020027 OOOOOOG 

103426 



010001 

072127 177764 

042701 177761 
016102 OOOOOOG 
001414 

000302 

042702 177600 



BIT #*INKMN, LSW4<R1) 

BEG 2* 

CMP RO, #CXTEND 

BLO 1* 



IS KMON RUNNING? 

BR IF NOT 

IS ADDRESS IN JOB CONTEXT REGION? 

BR IF YES 



2*: 



See if there are any associated shared run-time systems 

iGET ADDRESS BEING CHECKED 

i CONVERT ADDRESS TO 2 * PAR REGION # 

IS THAT REGION MAPPED TO SHARED RUN-TIME? 

BR IF NOT 

GET PAGE LENGTH TO LOW-ORDER BYTE 

GET # 64-BYTE BLOCKS USED IN PAR REGION 



MOV 


RO, Rl 


ASH 


#-12. , Rl 


BIC 


# A C16, Rl 


MOV 


RPDR(R1),R2 


BEG 


3* 


SWAB 


R2 


BIC 


# A C177, R2 



4 



€ 

< 



TSEMT 


T/S EMT 


PROCESS 


OR 


UACHKx - 


— Check 


va 1 i d i t 


y of use 


58 


005462 


005202 




59 


005464 


072227 


000006 


60 


005470 


005302 




61 


005472 


072127 


000014 


62 


005476 


060201 




63 


005500 


020001 




64 


005502 


101402 




65 








66 








67 








68 


005504 


000261 




69 


005506 


000401 




70 








71 








72 








73 


005510 


000241 




74 








75 








76 








77 


005512 


012602 




78 


005514 


012601 




79 


005516 


000207 




80 








81 








82 








83 








84 








85 








86 








87 








88 








89 








90 








91 








92 








93 








94 








95 


005520 


004737 


005352 ' 


96 


005524 


103405 




97 


005526 


000207 




98 








99 


005530 


004737 


005364 ' 


100 


005534 


103401 




101 


005536 


000207 




102 








103 








104 








105 


005540 


012700 


177766 


106 


005544 


000137 


004036 ' 
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INC 


R2 


ASH 


#6, R2 


DEC 


R2 


ASH 


#12. , Rl 


ADD 


R2, Rl 


CMP 


RO, Rl 


BLOS 


1* 



Address is invalid 



3$: 



SEC 
BR 



# IS OFFSET BY 1 

CONVERT TO # BYTES 

AVOID ADDRESS OVERFLOW AT TOP OF MEMORY 

GET ADDRESS OF BASE OF PAR REGION 

GET ADDRESS OF LAST BYTE IN PAR REGION 

IS OUR ADDRESS IN MAPPED REGION? 

BR IF YES 



; SIGNAL ERROR ON RETURN 



9* 



Address is valid 
1*: CLC 
Finished 



; SIGNAL SUCCESS ON RETURN 



9*: 



MOV < SP ) +, R2 

MOV (SP)+, Rl 
RETURN 

. SBTTL VALADx — Validate user address 



VALADW and VALADB are called to validate an address provided as 
an EMT argument. If the address is invalid/ these routines do not 
return but rather produce a fatal EMT error. 
VALADW checks to see that the address is even. 

Inputs: 
RO = Address to be checked (preserved) 
EMTPS = PS saved by EMT 

Outputs: 
A fata EMT error is produced if the address is invalid. 

CHECK WORD ADDRESS 
BR IF INVALID 
ADDRESS IS OK 

; CHECK BYTE ADDRESS 
;BR IF INVALID 



f 

< 

< 

i 
I 
I 
4 
f 



VALADW: 


CALL 


UACHKW 




BCS 


BADAD 




RETURN 




VALADB: 


CALL 


UACHKB 




BCS 


BADAD 




RETURN 




; Inva 


lid address — G 


BADAD: 


MOV 


#-12, RO 




JMP 


SETERR 



iGIVE FATAL EMT ERROR 



* 


TSEMT 


T/S EMT 


PROCESSOR MACRO V 




IOWAIT ■ 


— Wait 


for I/O 


to finish 




1 
2 










3 








\( 


4 
5 
6 
7 
8 








1 


9 


005550 


010346 




1 * 


10 


005552 


013703 


OOOOOOG 


1 « 


11 


005556 








12 


005564 


105763 


OOOOOOG 


1 f 


13 


005570 


001407 




1 


14 


005572 


012700 


OOOOOOG 




15 


005576 


004737 


OOOOOOG 




16 


005602 


004737 


OOOOOOG 




17 


005606 


000763 




\ 


IS 


005610 






I 4 


19 


005616 


012603 




! * 


20 

21 


005620 


000207 






22 
23 
24 








1 
€ 


25 
26 










27 


005622 


010146 




t 


28 


005624 


113701 


OOOOOOG 


29 


005630 








30 


005636 


105761 


OOOOOOG 




31 


005642 


001405 




i 


32 


005644 


012700 


OOOOOOG 




33 


005650 


004737 


OOOOOOG 




34 


005654 


000765 






35 










36 










37 








i * 


38 


005656 








39 


005664 


012601 






40 


005666 


000207 






41 










42 










43 










44 










45 










46 


005670 


005737 


OOOOOOG 




47 


005674 


001752 






48 


005676 


010246 






49 


005700 


010346 






50 


005702 


013703 


OOOOOOG 




51 


005706 


032763 


OOOOOOG OOOOOOG 




52 


005714 


001406 






53 


005716 


016302 


OOOOOOG 




54 


005722 


042702 


177701 




55 


005726 


004737 


006006 ' 




56 


005732 


012603 






57 


005734 


012602 
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. SBTTL IOWAIT — Wait for I/O to finish 



IOWAIT is called to suspend user execution until all I/O on the 
current channel is finished. 



Inputs: 
CHNADR = 

IOWAIT: MOV 
MOV 



Address of current channel we are waiting on. 



1*: 



2*: 



DISABL 

TSTB 

BEQ 

MOV 

CALL 

CALL 

BR 

ENABL 

MOV 

RETURN 



R3, -<SP> 
CHNADR , R3 

C. NUMQ(R3) 

2* 

#S*IOWT, RO 

QNSPND 

CHKABT 

1* 

<SP>+, R3 



GET ADDRESS OF CHANNEL 
» DISABLE INTERRUPTS 

* ANY ACTIVE I/O REQUESTS ON CHANNEL? 

* BR IF NOT — ALL I/O IS FINISHED 

* SAY WE ARE WAITING FOR I/O TO FINSIH 
ENQUEUE FOR I/O WAIT (ENABLE) 

WERE WE ABORTED WHILE ASLEEP? 
GO TRY AGAIN 



.SBTTL IOSTOP -- Wait for all of job's I/O to finish 

IOSTOP suspends execution of the current job until all of its 
I/O is completed. 



IOSTOP: MOV 
MOVB 

1$: DISABL 
TSTB 
BEQ 
MOV 
CALL 
BR 



R1,-<SP> 
CORUSR, Rl 

LIOCNT(Rl) 
2$ 

#S*IOWT, RO 
QNSPND 
1* 



All I/O is finished 

2$: ENABL 

MOV (SP>+, Rl 
RETURN 

. SBTTL IOHALT - 



GET JOB INDEX # 

*#* DISABLE *#* 

IS THERE ANY I/O ACTIVE FOR JOB? 

BR IF NOT 

SUSPEND JOB TILL I/O FINISHES 

;NOW GO SEE IF IT HAS COMPLETED 



; ## ENABLE ## 



Abort all I/O for a job 



Process . ABTIO EMT 



ABTIO: 



1*: 



TST 


IOABFL 


BEQ 


IOSTOP 


MOV 


R2, -<SP> 


MOV 


R3, -<SP> 


MOV 


CHNADR, R3 


BIT 


#CS*OPN, C. CS 


BEQ 


1* 


MOV 


C. CSW<R3),R2 


BIC 


# A C76, R2 


CALL 


DVSTOP 


MOV 


<SP>+, R3 


MOV 


<SP>+, R2 



; CHECK TO SEE IF 10 ABORT WAS CHOSEN 
;BR IF 10 RUNDOWN WAS CHOSEN 
; Save registers 

> Get address of channel status word 
});See if channel is open 

Br if channel is not open 

Get channel status word 

Mask channel device index number 

Stop I/O to this device 

Restore registers 
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58 005736 

59 

60 

61 

62 

63 

64 

65 

66 005742 

67 005746 

68 005750 

69 005752 
70 

71 

72 

73 005754 

74 

75 

76 

77 005760 

78 005764 

79 005766 

80 005772 

81 005776 

82 006000 

83 006002 

84 006004 



000137 001110' 



013702 
005003 
004737 
162702 
002373 
012603 
012602 
000207 



OOOOOOG 



005737 
001725 
010246 
010346 



004737 006626 ' 



OOOOOOG 

006006 ' 
000002 



JMP 



EMTXIT 



; Finished 



IOHALT is called to abort all I/O operations for a particular job. 



Inputs: 
Rl = Job index number. 



IOHALT: TST 
BEQ 
MOV 
MOV 



IOABFL 
IOSTOP 
R2, -<SP) 
R3, -<SP> 



; CHECK TO SEE IF 10 ABORT WAS CHOSEN 
i BR IF 10 RUNDOWN WAS CHOSEN 



1*: 



Cancel any pending . TIMIO entries for this job 

CALL CANIOT ; Cancel any pending .TIMIO entries for job 

Now call handler abort entry points 

GET INDEX # OF LAST DEVICE 

Clear channel address pointer 

STOP I/O ON THAT DEVICE FOR THIS JOB 

GET NEXT DEVICE INDEX NUMBER 

BR IF MORE DEVICES 



MOV 


NUMDEV, R2 


CLR 


R3 


CALL 


DVSTOP 


SUB 


#2, R2 


BGE 


1* 


MOV 


<SP>+, R3 


MOV 


<SP)+, R2 


RETURN 





t 

1 



TSEMT 
DVSTOP 



T/S EMT 
— Abort 
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I/O for a device & job 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006006 
006010 
006012 
006014 



006020 
006026 



006030 
006034 
006040 
006042 



006044 
006050 
006052 
006056 



010346 
010446 
010546 
013746 OOOOOOG 



026227 0000000 000004 
101532 



012700 006314' 
004737 OOOOOOG 
OOOOOOG 
010305 



016203 OOOOOOG 

001402 

010337 OOOOOOG 

016203 OOOOOOG 



006062 
006070 



012763 100000 177776 
005723 



. SBTTL DVSTOP — Abort I/O for a device & job 



DVSTOP is called to abort all I/O requests for a particular job 
that are pending for a particular device. 

The abort entry point for the device handler is called if the 
current queue entry belongs to the specified job or if the abort 
flag is set for the handler. 

Inputs: 
Rl = Index number of job whose I/O is to be aborted. 
R2 = Device index number of device to be serviced. 
R3 = Address of channel status word (for . ABTIO) or zero 



DVSTOP : MOV 
MOV 
MOV 
MOV 



R3, -<SP> 
R4, -<SP) 
R5, -<SP> 
@#KPAR5, -<SP> 



; Save PAR 5 in case we map to a handler 
Return immediately if this is a pseudo-device like LD, 77, etc. 



CMP HANENT ( R2 ) , #4 
BLOS 7* 



; Is this a real device? 
i Br if not 



Enter system state while we perform I/O abort processing 

j Set exit address for system state 
; Enter system state 
;Fork processing priority 
i Move channel status word 



MOV 


#7*, RO 


CALL 


ENSYS 


. WORD 


FP*IOA 


MOV 


R3, R5 



8*: 



Set up pointer to handler. 

MOV HANPAR<R2),R3 

BEG 8$ 

MOV R3, @#KPAR5 

MOV HANENT <R2),R 3 



j Is this a mapped handler? 

; Br if not 

j Map PAR 5 to the handler 

j Get pointer to LGE cell in handler 



006072 
006100 
006102 
006104 
006106 
006112 
006114 
006116 
006120 
006124 



032762 OOOOOOG OOOOOOG 

001015 

011304 

001430 

116400 OOOOOOC 

006300 

020001 

001023 

016400 OOOOOOC 

001403 



Hold the handler. 

This prevents new I/O from being started and prevents cleanup on 

current I/O request for handler. 

MOV #100000, -2 <R3> i Set handler-hold flag 

TST (R3)+ i Point to CGE cell in handler 

Call handler abort entry point if abort flag is set for handler 
or if current queue element belongs to job being aborted. 

BIT #DS*ABT, DVSTAT<R2)i Is abort flag set for handler? 

BNE 1* > Br if yes 

MOV <R3),R4 } Get pointer to current queue element for hand 

BEQ 2* ; Br if none 

MOVB Q. JOB-Q. BLKN<R4),R0 ; Get job # from queue element 

ASL RO ; Convert to job index number 

CMP RO, Rl ; Does this element belong to job being aborted 

BNE 2* ;Br if not 

MOV Q. CSW-G. BLKN(R4), RO; Get address of Channel Status Word 

BEQ 1* ; Br if none 



I 

4 
4 
4 
I 
< 
4 
< 
4 

i 
< 

4 

i 

i 

i 

< 

I 

4 

4 

i 
« 



TSEMT 


T/S EMT 


PROCESSOR 


MACRO V05. 


DVSTOP • 


— Abort 


I/O for 


a device & job 


58 


006126 


052760 


0000006 


OOOOOOG 


59 












60 












61 












62 


006134 


010146 




1$ 


63 


006136 


010246 






64 


006140 


010346 






65 


006142 


010104 






66 


006144 


006204 






67 


006146 


162703 


000006 




68 


006152 


011300 






69 


006154 


060300 






70 


006156 


004740 






71 


006160 


012603 






72 


006162 


012602 






73 


006164 


012601 






74 












75 












76 












77 












78 












79 


006166 


011305 




2* 


80 


006170 


001440 






81 


006172 


016504 


OOOOOOC 


3* 


82 


006176 


001435 






83 


006200 


1 1 6400 


OOOOOOC 




84 


006204 


006300 






85 


006206 


020001 






86 


006210 


001402 






87 


006212 


010405 






88 


006214 


000766 






89 


006216 


016465 


OOOOOOC 


OOOOOOC 4* 


90 


006224 


001005 






91 


006226 


011363 


177776 




92 


006232 


001402 






93 


006234 


010563 


177776 




94 


006240 


162704 


OOOOOOG 


5* 


95 


006244 


016400 


OOOOOOG 




96 


006250 


001403 






97 


006252 


052760 


OOOOOOG 


OOOOOOG 


98 


006260 


004737 


003032 ' 


9* 


99 


006264 


005362 


OOOOOOG 




100 


006270 


000740 






101 












102 












103 












104 












105 


006272 


006363 


177774 


6$ 


106 


006276 


100005 






107 


006300 


010304 






108 


006302 


005063 


177774 




109 


006306 


004737 


002570 ' 




110 












111 












112 












113 












114 


006312 


000207 




. 


tOi 



Friday 22-Jan-88 14:46 Page 30-1 



BIS 



#CS*ERR, C. CSW<RO>> Say an error occurred on this operation 



Call handler abort entry point. 



MOV 


R 1 , - < SP ) 


MOV 


R2, -<SP> 


MOV 


R3, -<SP> 


MOV 


R1,R4 


ASR 


R4 


SUB 


#6, R3 


MOV 


(R3),R0 


ADD 


R3, RO 


CALL 


-<R0> 


MOV 


<SP>+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 



Get job number 

Get in form handler expects 

Point to handler cell with interrupt entry 

Get offset to interrupt entry pt in handler 

Get abs address of interrupt entry point 

Call handler abort entry point 



Now remove any queue elements that belong to the job being aborted 
<But ignore the current queue element since it will be cleaned up 
by calling IOFIN) 

Get pointer to current queue element 

Br if there is none 

, R4 ; Is there another queue element in list? 

Br if not 

RO ;Get job # from queue element 

Convert to job index number 

Does this element belong to job being aborted 

Br if yes 

Link to next queue element 

And go check it 

, Q. LINK-Q. BLKN<R5> ; Remove element from list 

Br if this is not last element in list 

CQE — >LQE 

Br if queue is empty now 

Make LQE point to last queue element 

Make R4 point to start of queue element 

Get address of channel block for this element 

Br if no associated channel 

(Set error flag in channel status 

Do I/O completion for this queue element 

Decrement pending I/O count for device 

See if there are more queue elements 

If handler finished I/O operation while being held* we must call 
cleanup routine for it. 

#Did handler finish i/o while being held? 

; Br if not 

; Set up pointer to CQE cell in handler 

; Clear handler-hold flag 

; Do cleanup for handler 



MOV 


(R3),R5 i 


BEG. 


6* i 


MOV 


G. LINK-Q. BLKN(R5) 


BEG 


6$ ; 


MOVB 


G. JOB-Q. BLKN<R4>, 


ASL 


RO ; 


CMP 


RO, Rl i 


BEG 


4$ > 


MOV 


R4, R5 i 


BR 


3* i 


MOV 


Q. LINK-Q. BLKN(R4> 


BNE 


5* ; 


MOV 


<R3),-2<R3) » 


BEG 


5* ; 


MOV 


R5, -2(R3) ; 


SUB 


#Q. BLKN, R4 i 


MOV 


Q. CSW<R4),R0 ; 


BEQ 


9* ; 


BIS 


#CS*ERR,C. CSW(RO) 


CALL 


IOCMPL i 


DEC 


HANI0C(R2) i 


BR 


3* ; 



ASL 


-4<R3) 


BPL 


10* 


MOV 


R3, R4 


CLR 


-4<R3) 


CALL 


IOFIN 



Now exit from system state. 

This will transfer control to 7*. 



< 

« 

< 
i 
i 

< 

4 

4 

i 

i 

i 

i 

4 

i 

< 

< 

l 
i 



RETURN 



Exit from system state — Go to 7* 
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i 



115 ; 

116 ; Finished abortina I/O for this device 

117 i 

) t 118 006314 012637 OOOOOOG 7*: MOV (SP )+, <S#KPAR5 ; Restore PAR 5 mapping 

* 119 006320 012605 MOV <SP>+, R5 

120 006322 012604 MOV <SP)+, R4 

t 121 006324 012603 MOV <SP)+, R3 

1 122 006326 000207 RETURN 

I 

I < 



I I 

I 

I I 

I 

1 f 

I 
< 

, « 

I « 



TSEMT 
IOTIMR 
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006330 
006332 
006334 
006336 



006340 
006342 
006344 
006346 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



25 006350 

26 006354 

27 006356 

28 006360 

29 006362 

30 006364 

31 006370 

32 006374 

33 006402 

34 006406 

35 006412 

36 006420 

37 006426 

38 006432 

39 006440 

40 006446 

41 006452 

42 006456 

43 006460 
44 

45 
46 

47 006464 

48 006472 

49 006500 

50 006504 

51 006512 
52 

53 
54 

55 006514 

56 006520 

57 006522 



010046 
010146 
010246 
010346 



010502 
062502 
005725 
001062 



005762 
001003 
022525 
000261 
000514 
004737 
010162 
152761 
012561 
012561 
016261 
016261 
010261 
062761 
013761 
016200 
042700 
006300 
110061 



013761 
010137 

000437 



016201 
001416 



. SBTTL IOTIMR — Process handler timeout requests 

IOTIMR is the routine called from device handlers to process I/O 
timer requests. Normally the . TIMIO and . CTIMIO macros are used 
to call IOTIMR. 



Inputs: 
R5 = Address of argument list generated 



by . TIMIO or . CTIMIO macros 



IOTIMR: 



MOV 
MOV 
MOV 
MOV 



ROi -<SP> 
Rl, -<SP> 
R2, -<SP> 
R3, -<SP> 



Determine if we are starting or canceling a timer request 



MOV 
ADD 
TST 
BNE 



R5, R2 
<R5)+, R2 
(R5) + 
IOTIMC 



GET PTR TO CELL WITH OFFSET TO TIMER BLOCK 
GET ADDRESS OF TIMER BLOCK IN HANDLER 
IS THIS A . TIMIO OR . CTIMIO REQUEST? 
BR IF REQUEST TO CANCEL TIMER 



This is a request to start a timer. 

Get a completion request queue entry and set up values in it. 



OOOOOOG 



004414" 
OOOOOOG 

OOOOOOC OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
177400 

OOOOOOG 



4*: 



Make sure there is a specified compl routine 

Br if compl routine address specified 

Skip over high & low order time words 

Signal error on return 

Return 

Get a queue element (addr returned in Rl) 

Save ptr to queue element in handler block 

flag saying .TIMIO request 

time value 
Set low-order time value 

of routine to call 
# to be passed in RO 



OOOOOOG OOOOOOG 
OOOOOOG 



TST IT*RTN<R2> 

BNE 4* 

CMP <R5>+, <R5) + 

SEC 

BR IOTMXT 

CALL GETRTQ 

MOV Rl, IT*LNK<R2> 

BISB #<GF*IOT!QF*SCR>, CQ*FLG<R1 ); Set 

MOV <R5>+, CQ*HOT<Rl);Set high-order 

MOV <R5>+, CQ*L0T<R1) 

MOV IT*RTN(R2),CQ*RTN(Rl)iSet address 

MOV IT*SEQ(R2),CQ*R0(Rl);Set sequence 

MOV R2, CQ*R1(R1) ; Set address of cell to be cleared on call 

ADD #IT*RTN, CG*R1<R1> 

MOV @#KPAR5, CQ*PA5<Rl)i Set PAR 5 mapping for compl routine 

MOV IT*J0B(R2),R0 i Get # of job to synch with 

BIC # A C377, RO i Clear all but job number 

ASL RO ; Convert to job index number 

MOVB RO, CQ*J0B<R1 > ; Set job number in compl queue entry 

Link timer element into list of active requests 

DISABL ; ** DISABLE ** 

MOV MRKTHD, CQ*LNK<R1>; Put new element at head of timer list 

MOV R 1 , MRKTHD 

ENABL ; ** ENABLE ** 

BR IOTMCC ; FINISHED 



OOOOOOG 



Cancel a timer request 

IOTIMC: MOV IT*LNK(R2) , Rl 
BEG 3$ 
DISABL 



i Get address of queue element used for request 
i Inval id if zero 
; *# DISABLE #* 



< 

i 

i 
< 

i 

i 
t 

4 
4 

i 

i 
i 

< 
i 
< 
i 
< 

4 



i 



t 
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58 006530 

59 006534 

60 006540 

61 006542 

62 006546 

63 006550 

64 006556 

65 006560 

66 006562 

67 006570 

68 006574 

69 006600 

70 006606 

71 006612 
72 

73 
74 

75 006614 

76 006616 

77 006620 

78 006622 

79 006624 



012703 
026301 
001410 
016303 



000261 
000415 
016163 
005062 
005062 

004737 
000241 



012603 
012602 
012601 
012600 
000205 



OOOOOOC 
OOOOOOG 

OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

004222 ' 



MOV 

1*: CMP 
BEG. 
MOV 
BNE 
ENABL 

3*: SEC 
BR 

2*: MOV 
CLR 
CLR 
ENABL 
CALL 

IOTMCC: CLC 

> Finished — 



IOTMXT: 



MOV 
MOV 
MOV 
MOV 
RTS 



#MRKTHD-CQ*LNK, R3; FAKE POINTER TO QUEUE HEAD 



CQ*LNK(R3>, Rl 



CQ*LNK<R3>. 
1* 



IOTMXT 
CQ*LNK<R1> 
IT*RTN(R2) 
IT*LNK<R2> 

QFREE 



R3 



IS ELEMENT WE WANT TO REMOVE NEXT IN LTST? 

BR IF YES 

CHAIN FORWARD TO NEXT ELEMENT 

BR IF MORE TO CHECK 

## ENABLE ** 

SIGNAL FAILURE TO FIND TIMER ELEMENT IN LIST 



CQ*LNK<R3) j REMOVE TIMER ELEMENT FROM LIST 
; SAY TIMER BLOCK IS NOW FREE 



; ## ENABLE #* 

j Free the timer queue element 

; Return with C-flag cleared 



Return to handler 

<SP>+, R3 
<SP)+, R2 
<SP>+, Rl 
(SP)+, RO 
R5 



i 



< 
< 

4 
4 



i 
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010246 
010446 
013746 



016402 
001434 
132762 
001403 
120162 
001402 
010204 
000764 



1 
2 
3 
4 
5 
6 
7 

8 006626 

9 006630 
10 006632 
11 
12 
13 

14 006636 

15 006642 

16 006650 

17 006654 
IS 006656 

19 006664 

20 006666 

21 006672 

22 006674 

23 006676 
24 
25 
26 

27 006700 

28 006706 

29 006714 

30 006720 

31 006722 

32 006730 

33 006732 

34 006734 

35 006736 

36 006742 

37 006744 
38 
39 
40 

41 006746 

42 006754 

43 006760 

44 006762 

45 006764 
46 

47 
48 
49 
50 
51 006766 000207 



. SBTTL CANIOT — Cancel all .TIMIO requests for a job 

CANIOT is called to cancel all pending .TIMIO requests for a job. 

Inputs: 
Rl = Index number of job. 



OOOOOOG 



CANIOT: MOV 
MOV 
MOV 



R2, -<SP> 
R4, -<SP) 
@#KPAR5, -<SP> 



012704 OOOOOOC 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



1*: 
2*: 



3$: 



; Save current PAR 5 mapping 
Search through pending queue looking for requests belonging to this job 



** Disable interrupts #* 

Get address of next pending entry 

Br if hit end of list 

iils this entry for a .TIMIO? 

Br if not 

Is this entry for our job? 

Br if yes 

Link to next entry 

Go check it 



MOV 


#MRKTHD-CQ*LNK, R4 


DISABL 




; * 


MOV 


CQ*LNK(R4),R2 


i 


BEG 


4* 


> 


BITB 


#GF*IOT, CQ*FLG(R2) 


BEG 


3* 


i 


CMPB 


R1,CQ*J0B(R2) 


> 


BEG 


5* 


i 


MOV 


R2, R4 


* 


BR 


2* 


i 



We found an entry for this job 



016264 OOOOOOG OOOOOOG 5*. 
OOOOOOG 
OOOOOOG OOOOOOG 



016200 
001404 
016237 
005010 
010104 
010201 
004737 
010401 
000734 



6*: 



00422J 



MOV 

ENABL 

MOV 

BEG 

MOV 

CLR 

MOV 

MOV 

CALL 

MOV 

BR 



CQ*LNK(R2>, CQ*LNK(R4); ; ; Remove entry from linked list 

i ** Enable interrupts #* 
CQ*R1(R2),R0 ;Get addr of cell in handler to be cleared 
6* > Br if nothing to clear 

CQ*PA5(R2>/ @#KPAR5; Set up PAR 5 mapping for the handler 
(RO) 
R1,R4 

R2, Rl j Get address of queue element to Rl 

QFREE > Free the queue element 

R4» Rl .Get back job index number 

1* i See if there are more entries to free 



; Clear the cell in the handler 
.Save the job index number 



Finished 



012637 
012604 
012602 
000207 



OOOOOOG 



4*: 
9*: 



ENABL 

MOV 

MOV 

MOV 

RETURN 



<SP>+, S#KPAR5 
<SP)+, R4 
<SP>+, R2 



## Enable interrupts *# 
Restore PAR 5 mapping 



Dummy subroutine called by handlers trying to do error logging. 
Return immediately. 



ERRLOG: RETURN 



« 
i 

4 

t 
I 
i 
4 
4 
4 
i 
4 
4 
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1 

2 








3 








4 








5 








6 








7 


006770 


013704 


0000040 


8 


006774 


016402 


000000G 


9 


007000 


162702 


000022 


10 


007004 


020227 


001000 


11 


007010 


101402 




12 


007012 


012702 


001000 


13 


007016 


006202 




14 


007020 


016401 


OOOOOOG 


15 


007024 


016400 


OOOOOOG 


16 


007030 


001402 




17 


007032 


010037 


OOOOOOG 


18 


007036 


013703 


000006G 


19 


007042 






20 


007050 


005711 




21 


007052 


001012 




22 


007054 


162701 


000006 


23 


007060 


106523 




24 


007062 


012621 




25 


007064 


077203 




26 


007066 






27 


007074 


000137 


001110' 


28 








29 








30 








31 


007100 






32 


007106 


005000 




33 


007110 


000137 


004036 ' 



. SBTTL SETHAN — Update running copy of device handler 

SETHAN is the EMT used by kmon to update the running copy of a device 

handler after a SET command has been done. 

If the handler is active* an error return occurs. 

GET DEVICE TABLE INDEX FOR HANDLER 

GET SIZE OF HANDLER 

DON'T MODIFY LAST 9 WORDS OF HANDLER (. DREND TABLE) 

MAX CODE MODIFIED IS 1000 

BR IF HANDLER IS SMALLER 

CONVERT # BYTES TO # WORDS 

GET ADDRESS OF HANDLER ENTRY POINT 

IS THIS A MAPPED HANDLER? 

BR IF NOT 

MAP PAR 5 TO THE HANDLER 

GET ADDRESS OF BUFFER IN KMON WITH NEW CODE 

*## DISABLE *** 

IS THE HANDLER ACTIVE NOW? 

BR IF YES — GIVE ERROR RETURN 

POINT TO START OF HANDLER IN MEMORY 

GET WORD FROM KMON BUFFER 

MOVE OVER OLD HANDLER CODE 

MOVE ALL OF NEW CODE 

** ENABLE ** 

SUCCESSFUL EXIT 



SE1 


"HA 


N: MOV 


EMTBLK+4, R4 i 






MOV 


HANSIZ(R4),R2 ; 






SUB 


#18. ,R2 ; 






CMP 


R2, #1000 ; 






BLOS 


1* i 






MOV 


#1000, R2 


1*: 




ASR 


R2 > 






MOV 


HANENT(R4),R1 ; 






MOV 


HANPAR(R4),R0 ; 






BEG. 


4* i 






MOV 


RO, @#KPAR5 > 


4*: 




MOV 
DISABL 


EMTBLK+6, R3 ; 






TST 


(Rl) > 






BNE 


3* ; 






SUB 


#6, Rl i 


2$: 




MFPD 


<R3)+ J 






MOV 


<SP)+, (Rl)+ ; 






SOB 


R2, 2$ ; 






ENABL 








JMP 


EMTXIT ; 




Er 


ror — Han 


dler is active noi 



i 

i 

i 
i 

< 
< 

< 



3$: 



ENABL 

CLR 

JMP 



RO 
SETERR 



** ENABLE ** 
RETURN ERROR CODE O 
ERROR EXIT 



< 
I 
4 
< 



< 

4 
4 
I 
f 
I 
4 
< 
4 
< 
4 
< 
4 
4 
4 
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007114 
007116 
007120 
007122 



007124 
007130 
007134 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 

26 007136 

27 007144 

28 007152 

29 007156 

30 007162 
31 

32 
33 

34 007166 

35 007172 

36 007174 

37 007176 

38 007200 

39 007202 

40 007204 

41 007206 
42 

43 

44 

45 

46 007210 

47 

48 

49 

50 007212 

51 007214 

52 007216 

53 007220 



010246 
010446 
010546 
010502 



012700 
004737 
OOOOOOG 



016237 
016237 
012704 
066204 
012705 



016200 
006200 
001403 
012425 
012425 
077003 
103001 
011415 



000207 



012605 
012604 
012602 
000207 



. SBTTL MIOMWT — Mapped I/O move data to system buffer 

MIOMWT is called when doing a write to a device that requires its I/O 

to be mapped through a system buffer. 

MIOMWT moves the data from the user's buffer into a system buffer. 

Inputs: 
R5 = Address of mapped I/O control block. 



MIOMWT: MOV 
MOV 
MOV 
MOV 



R2, -<SP> 
R4, -<SP) 
R5, -<SP> 
R5, R2 



i Get address of mapped I/O control block 



Enter system state so that we can use PARS and PAR6 to map to the system 
and user buffers. 



007212' 
OOOOOOG 



MOV 
CALL 
. WORD 



#1*, RO 

ENSYS 

FP*MOV 



Go to 1$ on exit from system state 
Enter system state 
Fork priority 



We are now running in system state on the interrupt stack. 
Kernel PARS and PAR6 are free. 
Set up buffer pointers. 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV 
MOV 
MOV 
ADD 
MOV 



MI*UBP<R2), @#KPAR5 ; Set up PAR base for user's buffer 
MI*SBP<R2>, e#KPAR6 ; Set up PAR base for system buffer 



#VPAR5, R4 
MI*UB0<R2>,R4 
#VPAR6, R5 



Get virtual address base for user's buffer 
Add offset within 64-byte block region 
Get virtual address base for system buffer 



Get number of words to move and do the transfer 



2*: 



3*: 



MOV MI*CWC(R2)>R0 

ASR RO 

BEG 3* 

MOV <R4)+, <R5) + 

MOV <R4>+, (R5) + 

SOB RO, 2* 

BCC 4* 

MOV <R4), <R5) 



; Get number of words to move 

i Get number of doublewords 

> Br if less than 2 words to move 

i Move a word 

> Move a second word 

i Loop if more doublewords to move 

; Br if no odd word at end to move 

; Move the last word 



Finished moving data. 

Exit from system state <go to 1*) 



4*: RETURN 

i 

> Finished 

> 

1*: 



jExit from system state 



MOV 


<SP)+> 


R5 


MOV 


<SP>+, 


R4 


MOV 


< SP ) +, 


R2 


RETURN 







4 

4 

I 

4 
4 
4 
4 
4 
I 
< 
4 
4 
I 
4 
< 
4 

i 

4 
4 
4 
4 
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< 

€ 

i 



i 

2 
3 
4 
5 
6 
7 
8 
9 

10 007222 

11 007224 

12 007226 

13 007230 
14 

15 
16 
17 

18 007232 

19 007236 

20 007242 
21 

22 
23 
24 
25 

26 007244 

27 007252 

28 007260 

29 007264 

30 007270 
31 

32 
33 

34 007274 

35 007300 

36 007302 

37 007304 

38 007306 

39 007310 

40 007312 

41 007314 
42 

43 

44 

45 

46 007316 

47 

48 

49 

50 007320 

51 007322 

52 007324 

53 007326 



010246 
010446 
010546 
010502 



012700 
004737 
OOOOOOG 



016237 
016237 
012704 
066204 
012705 



016200 
006200 
001403 
012524 
012524 
077003 
103001 
011514 



000207 



012605 
012604 
012602 
000207 



007320 ' 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



. SBTTL MIOMRD — Mapped I/O move data to user's buffer 

MIOMRD is called when doing a read from a device that requires its I/O 

to be mapped through a system buffer. 

MIOMRD moves the data from the system buffer into the user's buffer. 

Inputs: 
R5 - Address of mapped I/O control block. 



MIOMRD: MOV 
MOV 
MOV 
MOV 



R2, - < SP ) 
R4, -<SP> 
R5, -<SP> 
R5, R2 



i Get address of mapped I/O control block 



MOV 


#1*, RO 


CALL 


ENSYS 


. WORD 


FP*MOV 



Enter system state so that we can use PARS and PAR6 to map to the system 
and user buffers. 

i Go to 1* on exit from system state 
i Enter system state 
; Fork priority 

We are now running in system state on the interrupt stack. 
Kernel PARS and PAR6 are free. 
Set up buffer pointers. 

MOV MI*UBP<R2),€#KPAR5 i Set up PAR base for user's buffer 

MOV MI*SBP(R2),@#KPAR6 J Set up PAR base for system buffer 

MOV #VPAR5, R4 i Get virtual address base for user's buffer 

ADD MI*UB0(R2>, R4 ;Add offset within 64-byte block region 

MOV #VPAR6iR5 ; Get virtual address base for system buffer 

Get number of words to move and do the transfer 



MOV MI*CWC<R2),R0 

ASR RO 

BEQ 3$ 

2*: MOV <R5>+, (R4) + 

MOV (R5)+, (R4)+ 

SOB RO, 2* 

3*: BCC 4* 

MOV <R5>, <R4) 



Get number of words to move 

Get number of doublewords 

Br if less than 2 words to move 

Move a word 

Move a second word 

Loop if more doublewords to move 

Br if no odd word at end to move 

Move the last word 



Finished moving data. 

Exit from system state (go to 1*) 



4*: RETURN 

Finished 
1*: 



iExit from system state 



MOV 


<SP)+, 


R5 


MOV 


<SP)+, 


R4 


MOV 


(SP)+, 


R2 


RETURN 
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1 

2 

3 

4 

5 

6 007330 

7 

8 

9 
10 007330 012637 OOOOOOG 
11 
12 
13 
14 007334 000002 



SBTTL HANXIT — Exit from a mapped handler 



HANXIT is jumped to when a mapped handler performs a RTI to exit 
from an interrupt. 

HANXIT: 

Restore PAR 5 mapping 

MOV <SP>+, @#KPAR5 ; Restore PAR 5 mapping 
Finished 

RTI i Do the real interrupt exit 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



007336 
007342 
007346 
007350 
007352 
007354 



007356 
007362 



007364 
007370 
007374 
007400 
007404 
007406 
007412 
007416 



007420 
007424 
007430 
007434 
007436 



162706 
016616 
010246 
010346 
012546 
005002 



005765 
001416 



166516 
016503 
166503 
072327 
060316 
116503 
073227 
000406 



162716 
016503 
073227 
062603 
005502 



. SBTTL 



Device handler mapping routines - 



The following routines provide XM support for device handlers. 
Kernel-mode PAR 6 is used to access the user's data area. 



SBTTL MPPHY 



Convert mapped address to physical address 



Convert a mapped address to a physical address. 

Inputs: 
R5 = Address of Q. BUFF cell in I/O queue entry. 
Q. BUFF = Address relative to Q. PAR 
Q. PAR ■ Address offset. 

Q. UMRX = 0==>No Unibus mapping needed; non-zero==>Do unibus mapping 
0. UMPB = Original value of Q. BUFF when I/O was queued 
Q. UMPP = Original value of Q. PAR when I/O was queued 
G. UMVB = Index number of base Unibus map register for transfer 

Outputs: 
<SP) = Low-order 16-bits of physical address. 
2(SP)= High-order 6-bits of physical address (in bits 4-9). 
R5 = Address of G. WCNT in queue element. 



000004 
000004 



MPPHY: 



SUB 
MOV 
MOV 
MOV 
MOV 
CLR 



#4, 


SP 


4(SP), (SP) 


R2, 


-(SP) 


R3, 


-(SP) 


(R5)+,~(SP) 


R2 





;MAKE ROOM ON STACK FOR RESULT WORDS 
;MOVE UP RETURN ADDRESS ON STACK 



; GET VIRTUAL ADDRESS FROM G. BUFF 

;WE WILL FORM PHYSICAL ADDRESS IN R2-R3 



OOOOOOC 



OOOOOOC 
OOOOOOC 
OOOOOOC 
000006 

OOOOOOC 
000015 



OOOOOOG 
OOOOOOC 
000006 



Convert virtual address in I/O queue element into physical 
address and place in R2-R3. 

TST Q. UMRX-G. WCNT(R5); IS UNIBUS MAPPING NEEDED? 
BEG 1* ;BR IF NOT 

We must do Unibus mapping for this I/O request. 

What we compute is not a physical address but is rather a 

virtual address within the Unibus address space. 

SUB Q. UMPB-Q. WCNT(R5), (SP) ; Subtract original Q. BUFF value 

MOV Q. PAR-Q. WCNT(R5)> R3 ; Get current PAR offset (64-byte units) 

SUB Q. UMPP-Q. WCNT(R5),R3 ; Get # 64-byte blocks Q. PAR has been incr 

ASH #6. , R3 ; Convert to byte offset 

ADD R3, (SP) i Increment buffer address 

MOVB G. UMVB-Q. WCNT(R5), R3 ; Get unibus register # 

ASHC #13. ,R2 ;* 8192. bytes per register 

BR 2* 

We are not doing Unibus mapping. Get 22-bit physical address to R2-R3. 

SUB #VPAR6, (SP) ; REMOVE PAGE-6 BIAS 

MOV Q. PAR-G. WCNT(R5), R3 ; GET RELOCATION BASE 

ASHC #6, R2 ; SHIFT R2-R3 LEFT 6 BITS 

*■*'• ADD (SP)+, R3 ; ADD (G. BUFF) TO LOW ORDER 

ADC R2 ; PROPOGATE CARRY TO HIGH-ORDER 



-, a 



1*: 



% 
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MPPHY — Convert mapped address to physical address 



58 » We have computed the address and it is in R2-R3. 

59 ; Position correctlu and store into stack. 

60 ; 

61 007440 072227 000004 ASH #4, R2 ; POSITION HIGH-ORDER TO BITS 4-9 

62 007444 010366 000006 MOV R3, 6(SP) i STORE LOW-ORDER VALUE 

63 007450 010266 000010 MOV R2, 10<SP) ; STORE HIGH-ORDER VALUE 

64 007454 012603 

65 007456 012602 

66 , 

67 i Finished — Converted values are on stack below return address. 

68 i 

69 007460 000207 RETURN 



ASH 


#4, R2 


MOV 


R3, 6(SP) 


MOV 


R2, 10<SP) 


MOV 


<SP>+, R3 


MOV 


<SP)+, R2 



i 

i 



I 
I 

€ 

« 
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PTBYT — Move byte to user's buffer 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



007462 



007462 062704 OOOOOOC 



007466 
007472 



032714 
001405 



020000 



007474 
007502 



007506 
007514 
007520 

007522 



007530 
007534 
007542 



062764 
162714 



000200 
020000 



OOOOOOC 



013727 
000000 
016437 



116634 
013737 



OOOOOOC 
OOOOOOC OOOOOOG 



000002 
007520 ' 



OOOOOOG 



007550 005244 



007552 
007556 
007560 



162704 
012616 
000207 



OOOOOOC 



. SBTTL PTBYT — Move byte to user's buffer 

PTBYT is called to transfer a byte to the user's buffer area. 

Inputs: 
(SP) = Byte to be transfered. 
R4 =s Pointer to Q. BLKN in queue element 

Outputs: 
Byte is popped from stack. 
Q. BUFF is incremented. 

PTBYT: 

Make R4 point to Q. BUFF rather than Q. BLKN 

ADD #<Q. BUFF-Q. BLKN>, R4; MAKE R4 POINT TO Q. BUFF 

This request must be mapped through PAR 6. 

See if tue cross a page boundary. 



BIT #20000, <R4> 
BEG 1* 



i DID WE CROSS A PAGE BOUNDARY? 
;BR IF NOT 



We crossed a page boundary. 
Increment Q. PAR and reset Q. BUFF 

ADD #200, Q. PAR -Q. BUFF <R4); ADVANCE PAGE NUMBER 
SUB #20000, <R4) ; RESET BUFFER POINTER 

Set up Kernel-mode PAR6 to access user's page. 



1*: 
11*: 



DISABL 
MOV 
. WORD 
MOV 



S#KPAR6, (PC) + 




DISABLE INTERRUPTS 

SAVE CURRENT KPAR6 CONTENTS 

CONTENTS OF KPAR6 



Q. PAR-Q. BUFF <R4>, @#KPAR6; MAP TO USER'S PAGE 
Move byte into the user's area 



MOVB 
MOV 

ENABL 



2(SP),@<R4>+ 
11*, @#KPAR6 



Increment buffer pointer 
INC -(R4> 



MOVE BYTE INTO USER'S SPACE 
RESTORE KPAR6 CONTENTS 
ENABLE INTERRUPTS 



; INC G. BUFF 



Fix up R4 and pop byte off stack. 



SUB 
MOV 
RETURN 



#<Q. BUFF-Q. BLKN>, R4; MAKE R4 POINT TO Q. BLKN 

(SP)+, (SP) j MOVE RETURN ADDRESS OVER DATA BYTE 



i 



i 

€ 

t 

< 
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GTBYT — Get byte from user's buffer 



i 
p 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



007562 



007562 011646 



007564 062704 OOOOOOC 



. SBTTL GTBYT — Get byte from user's buffer 

GTBYT is called to acquire a byte from a user buffer. 

Inputs: 
R4 = Pointer to Q. BLKN in I/O queue element. 

Outputs: 
<SP) = Byte acquired. 
0. BUFF is incremented. 

GTBYT: 

Make room for returned byte on stack. 

MOV <SP),-<SP> ;MOVE DOWN RETURN ADDRESS 
Make R4 point to Q. BUFF 

ADD #<G. BUFF-G. BLKN>, R4; MAKE R4 POINT TO G. BUFF 
This address needs to be mapped through PAR 6. 

See if we crossed a page boundary. 



007570 
007574 



031427 
001405 



020000 



BIT <R4>, #20000 
BEG 1$ 



;DID ADDRESS CROSS A PAGE BOUNDARY? 
;BR IF NOT 



007576 
007604 



007610 
007616 
007622 
007624 



007632 
007636 
007642 
007650 



062764 
162714 



000200 
020000 



OOOOOOC 



013727 
000000 
016437 



005066 
1 1 3466 
013737 



OOOOOOG 
OOOOOOC OOOOOOG 



We have crossed a page boundary. 
Increment Q. PAR and reset G. BUFF 

ADD #200, Q. PAR-G. BUFF <R4); INCREMENT PAGE POINTER 
SUB #20000, <R4) ; RESET BYTE-WITHIN-PAGE # 

Set up kernel-mode PAR6 to map to user's page 

1$: DISABL ) DISABLE INTERRUPTS 

MOV @#KPAR6, (PO+ ;SAVE CURRENT KPAR6 CONTENTS 

11*: .WORD i CONTENTS OF KPAR6 

MOV G. PAR-Q. BUFF <R4 >> @#KPAR6; MAP TO USER'S PAGE 



Move byte from user's buffer 



000002 
000002 
007622 



OOOOOOG 



CLR 


2(SP) 


MOVB 


@<R4>+, 2<SP) 


MOV 


11*. @#KPAR6 


ENABL 





007656 005244 



Increment buffer pointer 
INC -<R4> 



CLEAR BYTE AREA 
GET BYTE FROM USER'S AREA 
RESTORE KPAR6 CONTENTS 
ENABLE INTERRUPTS 



INCREMENT G. BUFF 



Fix R4 and return with data byte on top of stack 



007660 
007664 



162704 
000207 



OOOOOOC 



SUB 
RETURN 



#<G. BUFF-Q. BLKN>, R4i MAKE R4 POINT TO Q. BLKN 
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PTWRD — Move word to user's buffer 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



007666 



007666 062704 OOOOOOC 



007672 
007676 



031427 
001405 



020000 



007700 
007706 



007712 
007720 
007724 
007726 



007734 
007740 
007746 



062764 
162714 



000200 
020000 



OOOOOOC 



013727 
000000 
016437 



016634 
013737 



0000000 
OOOOOOC 0000000 



000002 
007724 ' 



OOOOOOC 



007754 062744 000002 



007760 
007764 
007766 



162704 
012616 
000207 



OOOOOOC 



. SBTTL PTWRD — Move word to user's buffer 

PTWRD is called to move a word into a user buffer area. 

Inputs: 
(SP) = Word to be moved to user's buffer. 
R4 = Pointer to Q. BLKN in queue element. 

Outputs: 
Data word is popped from stack. 
Q. BUFF is incremented. 

PTWRD: 

Make R4 point to Q. BUFF cell in queue element. 

ADD #<Q. BUFF-Q. BLKN>, R4i POINT TO Q. BUFF 

This address must be mapped through PAR 6. 

See if we crossed a page boundary 



BIT <R4), #20000 
BEQ 1$ 



;DID WE CROSS A PAGE BOUNDARY? 
iBR IF NOT 



We crossed a page boundary 
Increment Q. PAR and reset Q. BUFF 

ADD #200, Q. PAR-Q. BUFF(R4)j ADVANCE PAGE POINTER 

SUB #20000, <R4) > RESET BYTE-W I THIN-PAGE ADDRESS 

Set up kernel-mode PAR6 to map to user's page. 

1*: DISABL ; DISABLE INTERRUPTS 

MOV @#KPAR6, <PC)+ ;SAVE CURRENT KPAR6 CONTENTS 

11*: .WORD i CONTENTS OF KPAR6 

MOV Q. PAR-Q. BUFF <R4),@#KPAR6s MAP TO USER'S PAGE 



Move word into user's buffer. 



MOV 
MOV 
ENABL 



2(SP),@<R4)h 
11*, @#KPAR6 



Advance buffer pointer 
ADD #2, -<R4> 



MOVE WORD INTO USER'S BUFFER 
RESTORE KPAR6 CONTENTS 
ENABLE INTERRUPTS 



ADVANCE Q. BUFF 



Fix R4 and pop data word from stack. 



SUB 
MOV 
RETURN 



#<Q. BUFF-Q. BLKN>, R4; MAKE R4 POINT TO Q. BLKN 

(SP)+, <SP) ;POP DATA WORD — MOVE UP RETURN ADDRESS 
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EXTP1 — External KPAR mapping routine for drivers 



4 

< 
I 
4 



i 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 007770 

15 007770 

16 007774 

17 007776 

18 010000 

19 010002 

20 010004 

21 010006 
22 

23 
24 

25 010010 

26 010012 

27 010014 

28 010016 

29 010020 
30 

31 
32 

33 010022 

34 010024 

35 010026 

36 010030 

37 010032 

38 010034 

39 010036 
40 

41 
42 
43 
44 
45 
46 
47 
48 
49 

50 010044 

51 010050 

52 010052 

53 010054 

54 010060 



013746 
010146 
010246 
012002 
060200 
010001 
005741 



012746 
000207 
006202 
014146 
077202 



012602 
060602 
005722 
010246 
011201 
014202 
016037 



004766 
011606 
005726 
012637 
000200 



. SBTTL EXTP1 



External KPAR mapping routine for drivers 



EXTP1 is called from RMON offset 432 by device drivers wishing 
to map directly to the user's I/O buffer. It is initiated in the 
device driver by the following call: 

JSR RO, @*P1EXT 
WORD OCinstruction length> + 2 <for KPAR6)> 

<instructions> 

. WORD <new KPAR 6 mapping value> 
The drivers which use this routine are DD and DM. 



EXTP1: 



0000000 



MOV 
MOV 
MOV 
MOV 
ADD 
MOV 
TST 



@#KPAR6, 
Rl, -<SP> 



•<SP) 



Rl 



(SP) 



(R0)+, R2 
R2, RO 
RO, Rl 
-(Rl) 



Save kernal par 6 contents 

Save rl 

Save r2 

Get the length o 

Point to the cod 

Copy return addr 

Skip KPAR6 mappi 



f code <# bytes +2) 

e beyond par value 

ess 

ng value 



Put instructions and a return on the stack. 



1*: 



MOV 

RETURN 

ASR 

MOV 

SOB 



(PC)+,-(SP) 

R2 

-(Rl), -<SP> 

R2, 1* 



Save return inst 
Return instructi 
Convert # bytes 
Push instruction 
Continue until a 



ruction on stack 

on pushed to stack 

to # words 

s and # bytes on stack 

11 saved 



Calculate a stack frame pointer and put it on the stack. 



177776 OOOOOOG 



The 



MOV 
ADD 
TST 
MOV 
MOV 
MOV 
MOV 

stack 

SP — 



(SP>+, R2 

SP,R2 

<R2) + 

R2, -(SP) 

(R2),R1 

-(R2),R2 

-2(R0),S#KPAR6 



Get length of co 
Calculate stack 
Calculate stack 
Save stack frame 
Restore rl prior 
Restore r2 prior 
Initialize KPAR6 



de (# bytes +2) 
pointer to saved R2 
frame pointer to saved Rl 

pointer on top of stack 

to JSR 

to JSR 

mapping 



is 
•> 



in the following configuration: 

stack frame pointer to saved Rl 

instructions 

RETURN 

saved R2 

saved Rl 

KPAR6 

saved RO 



(pointed to by stack frame pointer on top of stack) 
(from JSR call) 



000002 



OOOOOOG 



CALL 

MOV 

TST 

MOV 

RTS 



2(SP) 

@SP, SP 

(SP) + 

( SP ) +, e#KPAR6 

RO 



Call instructions saved on stack 
Restore stack frame pointer 
Skip over rl value 
Restore kernal par 6 contents 
i Return to handler 



TSEMT 


T/S EMT 


PROCESSOR 


CVTPHY - 


— Convert a virtual add 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


010062 


010046 




16 


010064 


010446 




17 


010066 


010504 




18 


010070 


162704 


OOOOOOC 


19 








20 








21 








22 








23 


010074 


004737 


010126' 


24 








25 








26 








27 








28 








29 


010100 


162702 


OOOOOOG 


30 


010104 


005000 




31 


010106 


073027 


000006 


32 


010112 


060102 




33 


010114 


005500 




34 


010116 


010001 




35 








36 








37 








38 


010120 


012604 




39 


010122 


012600 




40 


010124 


000207 
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% ess to a physical addr 



SBTTL CVTPHY 



Convert a virtual address to a physical addr 



Convert a 16~bit virtual address within a job region into a full 
22~bit physical address. 

Inputs: 
RO = 16-bit virtual address within job region 
R5 = Pointer to Q. WCNT offset in I/O queue element 

Outputs: 
Rl = High-order 6 bits of physical address (starting at bit 4) 
R2 = Low-order 16 bits of physical address 
C-flag is set on return if physical address is > 56Kb 



CVTPHY: MOV 
MOV 
MOV 
SUB 



RO, -<SP> 

R4, -<SP) 

R5, R4 i Put I/O queue element pointer in R5 

#Q. WCNT-Q. BLKN, R4; Point to Q. BLKN in I/O queue element 



Call RELOC to convert the virtual address into an address within the 
PAR6 region and get a base offset for PAR6. 



CALL 



RELOC 



Get user's par mapping value 



At this point: 

Rl = Mapping value to use to map Par6 to the area. 

R2 = Address within Par6 region that specified mapped start of area. 

; Strip par6 relocation bias 

;Set up for shift 

> Shift R0-R1 left 6 bits 

; Get low-order physical address 

»Propogate carry to high-order 

> Return high-order part in Rl 



SUB 


#VPAR6, R2 


CLR 


RO 


ASHC 


#6, RO 


ADD 


R1,R2 


ADC 


RO 


MOV 


RO, Rl 


> Finished 




MOV 


<SP>+, R4 


MOV 


(SP)+, RO 


RETURN 
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RELOC — Mapping relocation calculation 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 

15 010126 
16 
17 
18 

19 010126 

20 010130 

21 010134 

22 010140 
23 

24 
25 
26 

27 010142 

28 010144 

29 010146 

30 010152 
31 

32 
33 

34 010154 

35 010162 

36 010166 

37 010170 
38 

39 
40 

41 010176 

42 010202 

43 010210 
44 

45 
46 

47 010216 

48 010220 

49 010224 

50 010226 

51 010230 
52 

53 
54 

55 010234 

56 010236 



010346 
116401 
042701 
006301 



010003 
005002 
071227 
006302 



013727 
000000 
016137 



016201 
013737 



005002 
071227 
060201 
010302 
062702 



012603 
000207 



OOOOOOC 
177400 



020000 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
010166' OOOOOOG 



000100 



OOOOOOG 
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. SBTTL RELOC — Mapping relocation calculation 



RELOC is a subroutine which converts a 16-bit virtual address contained 
in RO into a PAR6 relocation value returned in Rl and PAR6 offset address 
returned in R2. 

Inputs: 
RO = Virtual address to be converted. 
R4 = Pointer to Q. BLKN offset in I/O queue element. 

Outputs: 
Rl = PAR6 mapping relocation value. 
R2 = PAR6 offset (i.e. , address within PAR6 region) 

RELOC: 

Save registers. 

, -<SP) 

; Get job number from queue element 

/Clear sign extend bits 

; Convert to job index number 

RO contains the virtual address. Separate the par register number 
from the offset value to obtain the mapped address 



MOV 


R3, -<SP) 


MOVB 


Q. JOB-G. BLKN<R4),R1 


BIC 


#•"•0377, Rl 


ASL 


Rl 



MOV RO, R3 

CLR R2 

DIV #20000, R2 

ASL R2 



; Save conversion address 

i Clear high order bits 

j Separate page and offset pointer 

; Create word offset pointer 



User's mapping in job context is valid - map to job context. 



DISABL 

MOV @#KPAR6, (PO + 

11*: .WORD 

MOV LCXPAR(R1),@#KPAR6 



i> Disable interrupts 
i i Save par6 contents 
ii Contains par6 contents 
; i Map through par6 



Obtain par mapping contents from job context region. 



MOV 
MOV 
ENABL 



CUPAR0(R2),R1 
11*, @#KPAR6 



Check for valid offset. 



CLR 
DIV 
ADD 
MOV 
ADD 



#100, R2 
R2, Rl 
R3, R2 
#VPAR6, R2 



i i Get the PAR value for the page 
i ; Restore par6 original contents 
ii Enable interrupts 



i Clear high order bits 

,'Calc lowest 64— byte mapping offset 

; Adjust the PAR value accordingly 

i Move par offset into R2 

i Adjust to PAR6 virtual address 



Restore registers and return. 

MOV <SP)+, R3 
RETURN 



< 

« 

i 

i 

i 

t 

4 

< 

i 

i 

i 

I 

< 

4 



t 

t TSEMT 


T/S EMT 


PROCESSOR 


f BLKMV - 

1 
' 2 

3 


— Memor 


y block 


move rou 








i 4 








1 5 








6 








g 7 








' S 








9 








4 10 








1 11 








12 








# 13 








' 14 


010240 






15 


010240 


010046 




1 16 


010242 


013746 


0000000 


1 17 


010246 


013746 


OOOOOOG 


18 


010252 


042702 


160000 


i 19 


010256 


052702 


120000 


1 20 


010262 


042704 


160000 


21 


010266 


052704 


140000 


i 22 








1 23 








24 








f 25 


010272 


020227 


130000 


1 26 


010276 


103404 




27 


010300 


162702 


010000 


g 28 


010304 


062701 


000100 


1 29 


010310 


020427 


150000 


30 


010314 


103404 




i 31 


010316 


162704 


010000 


1 32 


010322 


062703 


000100 


33 








- 34 








1 35 








36 


010326 


012700 


000400 


I 37 


010332 


020005 




38 


010334 


103401 




39 


010336 


010500 




1 40 








1 41 








42 








< 43 


010340 


160005 




1 44 


010342 


010137 


OOOOOOG 


45 


010346 


010337 


OOOOOOG 


1 46 


010352 


005200 




« 47 


010354 


006200 




48 


010356 


103001 




1 49 


010360 


012224 




' 50 


010362 


012224 




51 


010364 


077003 




t 52 


010366 


005705 




1 53 


010370 


101340 




54 


010372 


012637 


OOOOOOG 


t 55 


010376 


012637 


OOOOOOG 


1 56 


010402 


012600 




57 


010404 


000207 
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SBTTL BLKMV — Memory block move routine 



BLKMV is used by the VM handler to transfer data from one memory area 
to another. 



Inputs: 

Rl = input PAR value 

R2 = input buffer address 

R3 = output PAR value 

R4 = output buffer address 

R5 = uiord count 



BLKMV: 



MOV RO, -<SP> 

MOV @#KPAR5, -<SP) 

MOV @#KPAR6, -CSP) 

BIC #160000, R2 

BIS #120000, R2 

BIC #160000, R4 

BIS #140000, R4 



i Save registers 

i Save kernel PAR 5 & 6 mapping 

; Strip input buffer bias 

> Convert input buffer to PAR5 base 

> Strip output buffer bias 

i Convert output buffer to PAR6 base 



Convert base buffer offsets and PAR to allow block move. 



1*: 


CMP 


R2, #130000 




BLO 


2* 




SUB 


#10000, R2 




ADD 


#100, Rl 


2*: 


CMP 


R4, #150000 




BLO 


3* 




SUB 


#10000, R4 




ADD 


#100, R3 


} 

> Move 


up to 


one block at a 


> 

3*: 


MOV 


#256. , RO 




CMP 


RO, R5 




BLO 


5* 




MOV 


R5, RO 


i Init 


ialize 


the PAR registe 


5*: 


SUB 


RO, R5 




MOV 


R1,@#KPAR5 




MOV 


R3, @#KPAR6 




INC 


RO 




ASR 


RO 




BCC 


20* 


10*: 


MOV 


<R2)+, <R4)+ 


20*: 


MOV 


(R2)+, <R4)+ 




SOB 


RO, 10* 




TST 


R5 




BHI 


1* 




MOV 


<SP)+, @#KPAR6 




MOV 


<SP)+, S#KPAR5 




MOV 


(SP)+, RO 




RETURN 





Check input buffer address 
Br if below boundary 
Subtract 4K byte offset 
Adjust PAR value 
Check input buffer address 
Br if below boundary 
Subtract 4K byte offset 
Adjust PAR value 



i Move 256. words 

i Check with actual word count 

; Br if word count > 256. 

; Otherwise use actual word count 

perform the move. 

; Adjust the number of words moved 

; Set PARS value 

; Set PAR6 value 

; Adjust word count for double move 

; Divide for double word move 

; Br if single word move necessary 

i Move input buffer to output buffer 

; Continue until all has been moved 

; Check for remaining words 

; Br if more to move 

; Restore PAR 5 & 6 mapping 

i Restore registers 



< 

€ 
< 
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59 000001 . END 

Errors detected: 

*** Assembler statistics 

Work file reads: 

Work file writes: 

Size of work file: 9624 Words ( 38 Pages) 

Size of core pool: 17920 Words ( 70 Pages) 

Operating system: RT-1 1 

Elapsed time: 00:00:49.35 

DK: TSEMT, LP: TSEMT=DK: TSEMT. MAC/C/N: SYM 



€ 
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*DEAD 


1-86 


8-13 




















*GEMAR 


1-82 


6-29 


6-47 


















SINKMN 


1-98 


1-108 


28-44 


















*ML0CK 


1-84 


9-26 


9-54 


9-60 


10-26 














*NDMEM 


1-88 


9-32 


10-24 


10-31 
















*NLOCK 


1-84 


9-34 




















... VI 


8-38 


8-38 




















. . . V2 


8-38 


8-38 


8-38# 


8-38# 
















ABORT 


1-116 


4-69 


19-21 


















ABTIO 


1-69 


29-46# 




















ARGFIN 


5-31 


5-49 


5-56 


6-10 


6-60# 














BADAD 


28-96 


28-100 


28-1 05# 


















BADEMT 


1-75 


6-74# 




















BASMAP 


1-84 


9-20 


9-36 


10-21 
















BELL 


2-7# 


2-32 




















BLKMV 


1-75 


44-14# 




















BOTCSR 


1-111 


8-41 




















BOTUNI 


1-111 


8-40 




















C. CSW 


1-123 


16-36* 


16-60 


22-26 


22-30 


29-51 


29- 


-53 


30-58* 


30-97* 




C. DEVQ 


1-125 


22— 2S 




















C. LENG 


1-126 






















C. NUMQ 


1-124 


11-27* 


16-41* 


29-12 
















C. SBLK 


1-126 


22-27 




















C. USED 


1-83 


16-37 


16-38 


16-40* 
















CANIOT 


1-73 


29-73 


32-8# 


















CFLAG 


1-97 


4-41 


7-30 


19-26 
















CHKABT 


1-118 


9-53 


20-23 


29-16 
















CHNADR 


1-109 


29-10 


29-50 


















CHNNUM 


1-104 


18-22 




















CKUSP2 


1-91 


4-66 




















CLWTIM 


1-67 


2-1 5# 




















CORUSR 


1-110 


4-49 


6-28 


8-27 


18-20 


18-29 


27- 


-27 


28-40 


29-28 




CP*RT 


1-90 


16-74 




















CP*STD 


1-86 


16-71 


17-66 


18-28 
















CQ*CP 


1-86 


16-71* 


16-74* 


17-50 


17-50 


17-64 


17- 


-66* 


18-28* 






CQ*FLG 


1-92 


16-70* 


16-72 


31-32* 


32-18 














CQ*HOT 


1-93 


31-33* 




















CQSJOB 


1-88 


16-61* 


17-13 


18-20* 


31-43* 


32-20 












CG*LNK 


1-87 

32-16 


17-46 
32-27 


17-48 
32-27* 


17-58* 


17-59* 


31-48* 


31- 


-58 


31-59 


31-61 


31-66 


CQ*LOT 


1-93 


31-34* 




















CQ*PA5 


1-87 


16-69* 


17-26 


18-27* 


31-39* 


32-31 












CQSPRI 


1-130 


16-68* 


17-56 


17-56 


17-71 


18-30* 












CQ*RO 


1-88 


1-93 


16-60* 


17-19 


18-21* 


31-36* 












CQ*R1 


1-88 


1-93 


16-59* 


17-20 


1 8-22* 


31-37* 


31- 


-38* 


32-29 






CQSRNS 


1-132 


16-65* 


16-67* 


17-53 


17-53 


17-77 


17- 


-79* 


17-83 


18-31* 


18-34* 


CQSRTN 


1-87 


17-27 


18-26* 


31-35* 
















CR 


2-5# 


2-32 


2-32 


















CSSEOF 


1-99 


16-35 




















CS*ERR 


1-99 


16-35 


30-58 


30-97 
















CS*OPN 


1-99 


29-51 




















CSHALC 


1-90 


12-33 




















CSHIO 


1-96 


12-35 




















CUP ARO 


1-136 


43-41 




















CUREMT 


1-83 


4-48* 




















CVTPHY 


1-67 


42-1 5# 





















31-66* 32-14 



4 
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I 

4 
i 

4 

4 

19-20 | 

33-7 33-18 

< 

t 

4 

7-15 7-30* 7-65 7-70* 19-26* 

4 

< 

( 

4 
4 
« 
< 
( 



CXTBAS 


1-117 


11-23 


11-26 


16-30 


16-33 


?7-P2 




CXTEND 


1-105 


28-46 












DIEARG 


1-44 


7-10* 












DIEMSG 


1-44 


7-10* 


22-59* 










DOEMT 


1-83 


6-60 












DOPLAS 


6-56 


6-64# 












DOSCHD 


1-87 


17-87* 












DS*ABT 


1-94 


30-48 












DVFLAG 


1-112 


12-31 


12-40 


23-29 








DVSTAT 


1-119 


30-48 












DVSTOP 


29-55 


29-79 


30-14# 










DX*DMA 


1-112 


23-29 












DX*MAP 


1-117 


12-40 












DX*NCA 


1-96 


12-31 












E375MX 


1-91 


6-8 












EM*NQE 


1-135 


22-59 












EMSSOF 


1-104 


7-10 












EMT375 


4-75 


6-15 


6-20# 










EMT376 


1-91 


6-16 












EMTABT 


1 9-20# 














EMTADR 


1-116 


4-16 


4-17* 


4-44 


4-46* 


4-68 


7-69* 


EMTASP 


1-109 


4-18 


4-19* 


4-20* 


5-38 


5-48* 


7-61* 


EMTBLK 


1-96 


4-73 


5-19 


6-52 


6-55 


8-29 


18-23 


EMTCXN 


1-121 


7-46 












EMTCXT 


1-119 


4-31 












EMTCXW 


1-119 


4-32 


7-47 










EMTENT 


1-71 


4-14# 












EMTERR 


1-122 


4-42* 


7-23* 


7-28 


19-9* 






EMTLEV 


1-86 


4-29* 


7-44* 










EMTMAP 


1-104 


4-36* 


7-39 


18-27 








EMTPLS 


1-82 


6-66 












EMTPS 


1-118 
28-31 


4-14 


4-15* 


4-41* 


4-50 


4-64 


5-32 


EMTRAD 


1-109 


7-76 


7-79 


7-81* 








EMTSP 


1-104 


4-35* 


5-47* 


7-43 








EMTXIT 


1-73 


7-8# 


9-56 


9-61 


19-27 


29-58 


33-27 


ENQTL 


1-129 


17-86 












ENSYS 


1-120 


13-59 


30-27 


34-19 


35-19 






ERRLOC 


1-97 


7-27 


7-31* 










ERRLOG 


1-74 


32-51# 












ERROK 


19-10 


19-16 


19-25# 










EXCJOB 


1-140 


8-27* 












EXTP1 


1-75 


41-14# 












FAKCMP 


1-75 


18-10# 












FILSPC 


1-76 


2-12# 


8-33* 


8-34* 


8-36 


8-37 




FMMSG 


1-70 


2-32# 












FORKQ 


1-95 


14-71 












FP*IOA 


1-103 


30-28 












FP*IOF 


1-103 


14-66 












FP*IOS 


1-103 


13-60 












FP*MOV 


1-103 


34-20 


35-20 










FQ*PRI 


1-95 


14-66* 












FQ*R1 


1-95 


14-68* 












FQ*R3 


1-95 


14-69* 












FQ*R5 


1-95 


14-70* 












FQ*RTN 


1-95 


14-67* 
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FREIOQ 

FREUMR 

FRKGET 

FRKPRI 

G16STK 

GETQ 

GETRTQ 

GETSYQ 

GETUCH 

GETUMR 

GTBYT 

HANENT 

HAN IOC 

HANPAR 

HANS I Z 

HANXIT 

INTERR 

INTPRI 



IOABFL 

IOCMPL 

IOFCPL 

IOFIN 

IOHALT 

IOHANG 

IOQSIZ 

IOSTOP 

IOSTRT 

IOTIMC 

IOTIMR 

IOTMCC 

IOTMXT 

IOWAIT 

IT* JOB 

IT*LNK 

IT*RTN 

IT*SEQ 

JSTKND 

JSWLOC 

KPAR5 



KPAR6 

LBASE 

LCMPL 

LCXPAR 

LEMTPC 

LF 

LIOCNT 

LITIME 

LJSW 

LMXNUM 

LOMAP 

LPRI 



1-119 
1-67 
1-95 
1-129 
3-20# 
1-69 
1-75 
1-70 
1-70 
1-67 
1-74 
1-119 
1-83 
1-120 
1-105 
1-77 
1-108 
1-89 
24-54 
40-44 
1-101 
1-97 
14-60 
1-71 
1-73 
1-67 
1-96 
1-68 
1-68 
31-20 
1-71 
31-51 
31-29 
1-72 
1-93 
1-130 
1-131 
1-97 
1-104 
1-120 
1-94 
13-26* 
31-39 
1-94 
40-43* 
1-127 
1-87 
1-136 
1-133 
2-6# 
1-89 
1-110 
1-104 
1-134 
1-84 
1-89 



20-30 
16-18 
14-65 
14-58 
5-20 
18-15 
22-18 
22-1 3# 
25-12# 
12-47 
39-12# 
13-27 
13-20* 
13-24 
33-8 
36-6# 

4-43* 
13-45 
29-18 
43-43 
29-46 
12-26 
14-67 
14-11# 
29-66# 
12-52 
20-54 
29-27# 
11-38 
31-55# 
31-10# 
31-71# 
31-65 
29-9# 
31-40 
31-31* 
31-25 
31-36 
7-8 
4-53 
4-36 
13-70* 
32-10 
20-40 
41-15 
9-19 
17-46 
43-37 
4-52* 
2-32 
11-31* 
16-63 
4-54* 
8-15 
9-21 
1-97 



20-31* 
24-14# 



20-10# 
22-48# 



23-25# 

30-21 

14-51* 

30-33 



13-53 
29-38 

29-66 
15-19 
15-14# 
30-109 

13-10# 

29-47 
12-15# 



31-75# 



31-55 
31-35 



7-39* 
16-16 
32-31* 
34-27* 
41-39* 

9-37 



2-32 
11-32* 
18-32 



9-35 
16-68 



21-11 



21-13* 



22-49 



22-51* 



20-24 
31-30 



24-57 

30-36 

30-99* 

33-15 



7-23 
14-29 
31-50 



16-13# 

24-59 
29-67 



31-68* 
31-38 



9-15* 
16-32* 
32-42* 
35-27* 
41-53* 
27-28 



2-32 
16-26* 



33-14 



19-25* 

14-46 

31-63 



30-98 



31-67* 



10-13 

16-86* 

33-17* 

38-36 

43-35 



29-30 



17-60 

31-69 



20-32 
32-28 



21-14 
32-41 



22-53 
33-26 



23-69 
33-31 



23-76 
38-44 



24-46 
39-48 



10-17* 

17-25 

34-26* 

38-38* 

43-37* 



10-40* 
17-26* 
35-26* 
38-43* 
43-42* 



11-12 

17-28* 

36-10* 

39-39 

44-17 



11-17 

27-39 

44-16 

39-41* 

44-45* 



11-25* 

30-17 

44-44* 

39-47* 

44-54* 



11-42* 
30-35* 
44-55* 
40-36 



13-15 
30-118* 

40-38* 



17-72 



17-74* 



18-30 
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LSTATE 


1-122 


16-47 


17-84 


























LSTPL 


1-128 


8-12 




























LSW 


1-85 


9-32* 


10-24 


10-31* 
























LSW11 


1-82 


6-29* 


6-47* 


























LSW3 


1-101 


8-13 




























LSW4 


1-98 


1-105 


28-44 


























LSW6 


1-103 


9-26 


9-34* 


9-54 


9-60* 


10-26 




















MAP PAR 


1-84 


9-15 


10-17 


























MEMSWP 


1-91 


9-33* 


10-32* 


























MI*CWC 


1-106 


34-34 


35-34 


























MI*SBP 


1-106 


34-27 


35-27 


























MI*UBO 


1-106 


34-29 


35-29 


























MI*UBP 


1-106 


34-26 


35-26 


























MIOCHK 


1-117 


12-42 




























MIOMRD 


1-77 


35-10# 




























MIOMWT 


1-77 


34-10# 




























MPPHY 


1-74 


37-24# 




























MRKTHD 


1-94 


31-48 


31-49* 


31-58 


32-14 






















MXCSR 


1-135 


8-21* 




























MXDTR 


1-135 


8-20* 




























NMFREQ 


1-89 


20-14 


20-29* 


21-15* 


22-52* 






















NUMDEV 


1-90 


29-77 




























ODTBAS 


1-91 






























OVRHC 


1-140 


12-42 




























POSLOK 


1-91 


9-6 




























PRINT 


1-139 


4-60 




























PRIVCO 


1-86 


1-98 


9-6 


























PS 


l-22# 


7-17* 


8-6* 


8-39* 


13-36* 


13-45* 


13-53* 


14-26* 


14- 


-29* 


14- 


-46* 


17-44* 


17- 


-60* 




20-10* 


20-32* 


21-10* 


21-14* 


22-48* 


22-53* 


23-50* 


23-69* 


23- 


-76* 


24- 


-35* 


24-46* 


24- 


-54* 




29-11* 


29-18* 


29-29* 


29-38* 


31-47* 


31-50* 


31-57* 


31-63* 


31- 


-69* 


32- 


-15* 


32-28* 


32- 


-41* 




33-19* 


33-26* 


33-31* 


38-35* 


38-44* 


39-38* 


39-48* 


40-35* 


40- 


-44* 


43- 


-34* 


43-43* 






PTBYT 


1-74 


38-13# 




























PTWRD 


1-74 


40-13# 




























PUTUCH 


1-70 


26-12# 




























Q. BLKN 


1-124 


13-32 


13-43* 


14-31 


22-27* 


30-52 


30-56 


30-81 


30- 


-83 


30- 


-89 


30-89* 


30- 


-94 




38-17 


38-52 


39-20 


39-56 


40-17 


40-52 


42-18 


43-20 
















Q. BUFF 


1-126 
40-17 


22-29* 
40-30* 


23-85 
40-38 


27-55* 
40-52 


38-17 


38-30* 


38-38 


38-52 


39- 


-20 


39- 


-33* 


39-41 


39- 


-56 


Q. CHAN 


1-125 


16-59 




























Q. COMP 


1-125 


16-53 




























Q. CSW 


1-126 


22-25* 


30-56 


30-95 
























Q. DEVX 


1-107 


11-32 


12-20 


13-19 


14-50 


22-32* 


24-56 


















Q. FLAG 


1-92 


16-70 




























Q. FUNC 


1-124 


16-19 




























Q. ICSW 


1-96 


16-34 


16-37 


22-24 
























Q. JOB 


1-124 


11-28 


16-23 


30-52 


30-83 


43-20 




















Q. LINK 


1-124 
24-44 


13-31* 
24-53 


13-43* 
24-53* 


14-32 
30-81 


20-31 
30-89 


21-12* 
30-89* 


22-51 


23-62 


23- 


-63 


23- 


-67* 


23-68* 


24- 


•36 


Q. PA5 


1-126 


11-12* 


16-69 


























Q. PA6 


1-127 


11-25 


16-32 


20-40* 
























Q. PAR 


1-126 


23-87 


27-54* 


37-42 


37-53 


38-30* 


38—38 


39-33* 


39- 


-41 


40- 


-30* 


40-38 






Q. UCSW 


1-96 


11-21 


16-22 


22-22* 
























Q. UMPB 


1-114 


23-86* 


37-41 


























Q. UMPP 


1-115 


23-88* 


37-43 


























Q. UMRX 


1-113 


23-25 


23-77* 


24-14 


24-27 


24-29* 


37-34 


















Q. UMVB 


1-114 


23-89* 


37-46 
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n UNIT 1-125 32-28* 

Q. WCNT 1-123 16-21 23-43 24-38 37-34 37-41 37-42 37-43 37-46 37-53 42-18 

QCOMPL 1-75 16-75 17-8# 18-39 

QF*CIO 1-90 16-72 

QF*IOT 1-77 31-32 32-18 

QF*MIO 1-90 16-72 

QF*SCR 1-93 31-32 

QFREE 1-71 16-82 17-38 18-49 21-9# 31-70 32-35 

QHIPRI 1-89 16-49 21-25 

GIO 1-70 11-16# 

01 OF IN 12-27 12-36 12-43 12-48 12-56# 

QNSPND 1-118 9-52 20-22 29-15 29-33 

QSRCH 1-118 21-23 

QWTCNT 2-14# 20-20* 21-20 21-27* 

READ 1-78 1-137 

REBOOT 1-76 8-6# 

RELOC 1-78 42-23 43-1 5# 

RPDR 1-102 28-54 

RSR 1-134 8-17* 

RT11EX 1-91 6-3S 6-52 

RTLOCK 1-72 1-74 9-6# 

SfHICP 1-110 16-65 18-34 

S*IOFN 1-130 16-67 18-31 

S*IOWT 1-122 16-47 29-14 29-32 

S*NEDQ 1-119 20-21 21-22 

S*RT 1-103 17-77 17-79 

S*WFM 1-85 9-51 

SA*LOK 1-85 9-46 

SCPOET 1-85 9-44 

SERFLG 1-100 19-15 

SETC 1-69 19-26# 

SETERR 1-73 6-69 6-75 9-9 18-51 19-9# 28-106 33-33 

SETHAN 1-71 33-7# 

SP*CMD 1-85 9-46* 

SP*JOB 1-85 9-45* 

SPFLDV 1-76 2-2 1# 

SPFLNM 1-76 2-22# 8-38 

SPLERR 1-70 2-33# 

SPSIZE 1-76 2-23# 16-21* 

SROMMR 1-140 8-33 8-36* 8-54* 

SR3MMR 1-140 8-34 8-37* 8-55* 

SSEMT 1-83 6-54 

SWPFRC 1-72 9-39 10-1 1# 

SYBFAD 1-68 27-17# 

SYQIO 1-68 11-12# 

SYSDAT 1-92 8-59 

SYSHLT 1-44 7-10 22-59 

SYSXIT 1-88 7-85 

SYTIMH 1-92 8-60 

SYTIML 1-92 8-61 

TSEMT 1-21# 1-68 

TSINIT 1-83 8-46 8-65 

TSR 1-134 8-18* 

TTYIN 1-138 4-63 

TTYOUT 1-138 4-57 

UACHKB 1-69 28-18 28-25# 28-99 
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UACHKW 


1-69 


18-24 


28-17# 


28- 


-95 


UBUSMP 


1-112 


23-27 








UHIMEM 


1-121 


6-22 


28-25 






UIOCNT 


1-127 


11-33* 


16-27* 






UM**SZ 


1-113 


23-55 








UMSIOQ 


1-112 


23-51 


23-75* 


24- 


-28* 


UM*NMR 


1-114 


23-101 








UM*UMR 


1-114 


23-89 


23-98 






UM*WDS 


1-113 


23-53 


24-34 






UMODE 


1-122 


4-50 


4~64 


5- 


-32 


UMRADR 


1-114 


23-100 








UMRBAS 


1-112 


23-49 








UMREND 


1-113 


23-56 








UMRWHD 


1-113 


23-62 


24-36 






UPMODE 


1-110 


7-17 


7-80 






URO 


1-118 


4-37* 


6-68* 


7- 


-35 


USREMT 


1-76 


2-ll# 


8-38 






V1EMT 


5-5# 










V1STK 


3-5# 


5-30 








V2EMT 


4-77 


6-4# 








VALADB 


1-98 


28-99# 








VALADW 


1-98 


6-24 


28-95# 






VCSHNB 


1-140 


8-28* 








VPAR5 


1-140 


11-26 


16-33 


27- 


-34 


VPAR6 


1-90 


22-29 


23-93 


27- 


-50 


VPLAS 


1-82 


6-64 








VPRIHI 


1-103 


17-75 








VSWPFL 


1-84 


9-10 








WRITE 


1-78 


1-137 








ZCLR 


1-135 


8-21 








ZEROQ 


20-36 


20-52# 


22-54 







7-15 



28-31 



34-28 
34-30 



35-28 
35-30 



37-52 



42-29 



43-51 
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. CM! 


Q-38 
























. . . CM2 


8-38 


8-38 


8-38 


8-38 


















. . . CMS 


8-38 
























. . . CM7 


8-38 
























. READW 


l-26# 


8-38 






















DIE 


l-45# 


7-10 


22-59 




















DISABL 


l-30# 


8-6 


8-39 


13-36 


14-26 


17-44 


20-10 


21-10 


22-48 


23-50 


24-35 


29-11 




29-29 


31-47 


31-57 


32-15 


33-19 


38-35 


39-38 


40-35 


43-34 








ENABL 


l-34# 


13-45 


13-53 


14-29 


14-46 


17-60 


20-32 


21-14 


22-53 


23-69 


23-76 


24-46 




24-54 


29-18 


29-38 


31-50 


31-63 


31-69 


32-28 


32-41 


33-26 


33-31 


38-44 


39-48 




40-44 


43-43 






















OCALL 


l-56# 


12-42 























